public
Last active

  • Download Gist
gistfile1.pl
Perl
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
package Local::Patched::Foo;
 
use strict;
use warnings;
no warnings 'redefine';
 
use parent 'Exporter';
use constant functions => qw( baz );
 
use Foo functions;
our @EXPORT = functions;
 
sub Foo::qux {
print 2;
};
 
1;

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.