14 isa => sub { die 'not int' unless $_[0] =~ /^\d$/ },
19 isa => quote_sub(q{ die 'not int' unless $_[0] =~ /^\d$/ }),
28 Bar->new(frooh => 1, frew => 1);
29 } 'creation of valid Bar';
32 Bar->new(frooh => 'silly', frew => 1);
33 } 'creation of invalid Bar validated by coderef';
36 Bar->new(frooh => 1, frew => 'goose');
37 } 'creation of invalid Bar validated by quoted sub';