Source

p5-object-stash / t / 05multiretrieval.t

Full commit
use Test::More tests => 4;
use Object::Stash;

{
	package Local::TestClass;
	use Object::Stash;
	sub new {bless[@_],shift}
}

my $obj = Local::TestClass->new;
$obj->stash(foo=>1, bar=>2, baz=>3);

my @return = $obj->stash([qw/baz bar/]);
is($return[0], 3);
is($return[1], 2);

my $return = $obj->stash([qw/baz foo/]);
is($return->[0], 3);
is($return->[1], 1);