Data-Tumbler

 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 distribution
 view release on metacpan -  search on metacpan

( run in 0.899 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )