Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more
123456789101112131415 package MyTest::Extend::Plugin::Bar;use strict;sub new { my $class = shift; my %self = @_; return bless \%self, $class;}sub nork { return $_[0]->{'nork'};}1;
package
MyTest::Extend::Plugin::Bar;
use
strict;
sub
new {
my
$class
=
shift
;
%self
@_
return
bless
\
,
}
nork {
$_
[0]->{
'nork'
};
1;