view release on metacpan or  search on metacpan

t/capsule.t  view on Meta::CPAN

3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
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