8 my $obj = $class->new(plus_three => 1);
10 is($obj->plus_three, 4, "initial value set (${class})");
14 is($obj->plus_three, 7, 'Value changes after set');
24 coerce => sub { $_[0] + 3 }
38 coerce => quote_sub q{
77 die 'could not add three!'
83 like exception { Biff->new(plus_three => 1) }, qr/could not add three!/, 'Exception properly thrown';