Data-Tumbler
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Data/Tumbler.pm view on Meta::CPAN
=cut
sub new {
my ($class, %args) = @_;
my %defaults = (
consumer => sub { confess "No Data::Tumbler consumer defined" },
add_path => sub { my ($path, $name ) = @_; return [ @$path, $name ] },
add_context => sub { my ($context, $value) = @_; return [ @$context, $value ] },
);
my $self = bless \%defaults => $class;
for my $attribute (qw(consumer add_path add_context)) {
next unless exists $args{$attribute};
$self->$attribute(delete $args{$attribute});
}
confess "Unknown $class arguments: @{[ keys %args ]}"
if %args;
return $self;
}
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.899 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )