Object-Capsule
view release on metacpan - search on metacpan
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 distributionview release on metacpan - search on metacpan
( run in 0.786 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )