Object-Capsule

 view release on metacpan or  search on metacpan

t/capsule.t  view on Meta::CPAN


use Test::More 'no_plan';

BEGIN {
	use_ok("Object::Capsule");
}

our $widgetstring = "It's a widget!";

package Widget;
	sub new  { my $class = shift; bless { @_ } => $class }
	sub size { (shift)->{size} }
	sub grow { ++(shift)->{size} }
	sub wane { --(shift)->{size} }

	sub encapsulate { "!" }

	use overload
		'""' => sub { $widgetstring },
		'0+' => sub { $_[0]->{size} },
		fallback => 1

 view all matches for this distribution
 view release on metacpan -  search on metacpan

( run in 0.786 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )