Source

p5-object-stash / t / 04stashobject.t

use Test::More tests => 6;
use Object::Stash;

{
	package Local::TestClass;
	use Object::Stash -type => 'object';
	sub new {bless[@_],shift}
}

my $obj = Local::TestClass->new;

is(
	ref $obj->stash,
	'Local::TestClass::stash'
	);

$obj->stash(foo => 'bar');

is(
	$obj->stash->{foo},
	'bar'
	);

is(
	$obj->stash->foo,
	'bar'
	);

$obj->stash->foo = 'baz';

is(
	$obj->stash->{foo},
	'baz'
	);

$obj->stash->foo('quux');

is(
	$obj->stash->{foo},
	'quux'
	);

$obj->stash->foo++;

is(
	$obj->stash->foo,
	'quuy'
	);
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.