use strict;
use warnings;
-use Test::More no_plan => 1;
+use Test::More tests => 29;
BEGIN {
use_ok('MooseX::AttributeHelpers');
}
-## convert this to a test ...
-## code by Robert Boone
-
package Subject;
use Moose::Role;
has observers => (
metaclass => 'Collection::Array',
is => 'ro',
- isa => 'ArrayRef',
+ isa => 'ArrayRef[Observer]',
auto_deref => 1,
default => sub { [] },
provides => { 'push' => 'add_observer', count => 'count_observers' }
use Moose::Role;
-sub update {
- die 'Forgot to implement' . "\n";
-}
+requires 'update';
###############################################################################