/usr/share/perl5/Padre/QuickFix.pm is in padre 1.00+dfsg-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 | package Padre::QuickFix;
use 5.008;
use strict;
use warnings;
our $VERSION = '1.00';
# Constructor.
# No need to override this
sub new {
bless {}, $_[0];
}
# Returns the quick fix list
sub quick_fix_list {
my ( $self, $doc, $editor ) = @_;
warn "quick_fix_list, You need to override this to do something useful with quick fix";
return ();
}
1;
__END__
=head1 NAME
Padre::QuickFix - Padre Quick Fix Provider API
=head1 DESCRIPTION
=head2 Quick Fix (Shortcut: C<Ctrl+2>)
This opens a dialog that lists different actions that relate to
fixing the code at the cursor. It will call B<event_on_quick_fix> method
passing a L<Padre::Wx::Editor> object on the current Padre document.
Please see the following sample implementation:
sub quick_fix_list {
my ($self, $editor) = @_;
my @items = (
{
text => '123...',
listener => sub {
print "123...\n";
}
},
{
text => '456...',
listener => sub {
print "456...\n";
}
},
);
return @items;
}
=cut
The B<Padre::QuickFix> class provides a base class, default implementation
and API documentation for quick fix provision support in L<Padre>.
# Copyright 2008-2013 The Padre development team as listed in Padre.pm.
# LICENSE
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl 5 itself.
|