6 use Test::More tests => 10;
19 has 'bar' => (is => 'rw', isa => 'ArrayRef | HashRef');
27 } '... set bar successfully with an ARRAY ref';
31 } '... set bar successfully with a HASH ref';
35 } '... couldnt set bar successfully with a number';
39 } '... couldnt set bar successfully with a CODE ref';
41 # check the constructor
45 } '... created new Foo with bar successfully set with an ARRAY ref';
49 } '... created new Foo with bar successfully set with a HASH ref';
53 } '... didnt create a new Foo with bar as a number';
56 Foo->new(bar => sub {})
57 } '... didnt create a new Foo with bar as a number';