);
}
-like exception { Biff->new(plus_three => 1) }, qr/could not add three!/, 'Exception properly thrown';
+like exception { Biff->new(plus_three => 1) }, qr/coercion for "plus_three" failed: could not add three!/, 'Exception properly thrown';
{
package Foo2;
has plus_three => (
is => 'rw',
default => sub { 1 },
- coerce => quote_sub q{
+ coerce => quote_sub(q{
my ($x) = @_;
$x + 3
- },
+ }),
lazy => 1,
);
}