3 use Test::More tests => 6;
13 sub BUILD { main::ok "calling BUILD in HardDog" }
15 __PACKAGE__->meta->make_immutable;
25 sub BUILD { main::ok "calling BUILD in SoftDog" }
29 lives_ok { SoftDog->new(bone => 'moo') };
30 lives_ok { HardDog->new(bone => 'moo') };
32 throws_ok { SoftDog->new() } qr/\QAttribute (bone) is required/;
33 throws_ok { HardDog->new() } qr/\QAttribute (bone) is required/;