t/lib/InsideOut/BaseArray.pm

   1 use strict;
   2 use warnings;
   3
   4 package InsideOut::BaseArray;
   5
   6 use constant FOO => 0;
   7
   8 sub new {
   9   my $class = shift;
  10   my %p = @_;
  11   my $self = bless [] => $class;
  12   $self->[FOO] = $p{base_foo};
  13   return $self;
  14 }
  15
  16 sub base_foo {
  17   my $self = shift;
  18   if (@_) { $self->[FOO] = shift }
  19   return $self->[FOO];
  20 }
  21
  22 1;