Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more
12345678910111213 package App::MadEye::Rule;use strict;use warnings;sub new { my ($class, $config) = @_; $config ||= {}; bless {config => $config}, $class;}sub config { $_[0]->{config} }1;
package
App::MadEye::Rule;
use
strict;
warnings;
sub
new {
my
(
$class
,
$config
) =
@_
;
||= {};
bless
{
config
=>
},
}
config {
$_
[0]->{config} }
1;