6 use Test::More no_plan => 1;
9 use_ok('MooseX::AttributeHelpers');
14 ## convert this to a test ...
15 ## code by Robert Boone
20 use MooseX::AttributeHelpers;
23 metaclass => 'Collection::Array',
27 default => sub { [] },
28 provides => { 'push' => 'add_observer', }
33 foreach my $observer ( $self->observers() ) {
34 $observer->update($self);
38 ###############################################################################
45 die 'Forgot to implement' . "\n";
48 ###############################################################################
53 use MooseX::AttributeHelpers;
58 metaclass => 'Counter',
68 after 'inc_counter','dec_counter' => sub {
73 ###############################################################################
82 my ( $self, $subject ) = @_;
83 print $subject->count() . "\n";
86 ###############################################################################
90 my $count = Counter->new();
91 $count->add_observer( Display->new() );
94 $count->inc_counter();
98 $count->dec_counter();