projects
/
gitmo/MooseX-InsideOut.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
33098e4e96d89029e1158457f2fad37eab977f90
[gitmo/MooseX-InsideOut.git]
/
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;