[gitmo/MooseX-InsideOut.git] / t / lib / InsideOut / BaseArray.pm

use strict;
use warnings;

package InsideOut::BaseArray;

use constant FOO => 0;

sub new {
  my $class = shift;
  my %p = @_;
  my $self = bless [] => $class;
  $self->[FOO] = $p{base_foo};
  return $self;
}

sub base_foo {
  my $self = shift;
  if (@_) { $self->[FOO] = shift }
  return $self->[FOO];
}

1;
Commit	Line	Data
64468268	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;