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;