MooseX-InsideOut
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/lib/InsideOut/BaseHash.pm view on Meta::CPAN
use strict;
use warnings;
package InsideOut::BaseHash;
sub new {
my $class = shift;
bless {@_} => $class;
}
sub base_foo {
my $self = shift;
$self->{base_foo} = shift if @_;
return $self->{base_foo};
}
1;
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.909 second using v1.00-cache-2.02-grep-82fe00e-cpan-b63e86051f13 )