lives_ok { $chimera = Animal->new( leg_count => 4 ) }
'... no errors thrown, value is good';
-# first we remove the lion's legs..
throws_ok { $chimera->leg_count(0) }
qr/This number \(0\) is not less than ten!/,
"gave custom supertype error message on set_value";
-# mix in a few octopodes
throws_ok { $chimera->leg_count(16) }
qr/This number \(16\) is not less than ten!/,
"gave custom subtype error message on set_value";
-# try the lazy legs
my $gimp;
lives_ok { my $gimp = Animal->new() } '... no errors thrown, value is good';
throws_ok { $gimp->leg_count }