t/lib/InsideOut/BaseHash.pm

   1 use strict;
   2 use warnings;
   3
   4 package InsideOut::BaseHash;
   5
   6 sub new {
   7   my $class = shift;
   8   bless {@_} => $class;
   9 }
  10
  11 sub base_foo {
  12   my $self = shift;
  13   $self->{base_foo} = shift if @_;
  14   return $self->{base_foo};
  15 }
  16
  17 1;