use strictures 1;
use Test::More;
+my $c_ran;
{
package Foo;
has three => (is => 'ro', default => quote_sub q{ {} });
has four => (is => 'ro', builder => '_build_four');
sub _build_four { {} }
+ has five => (is => 'ro', init_arg => undef, default => sub { {} });
+ has six => (is => 'ro', builder => 1);
+ sub _build_six { {} }
+ has seven => (is => 'ro', required => 1, default => quote_sub q{ {} });
+ has eight => (is => 'ro', builder => '_build_eight', coerce => sub { $c_ran = 1; $_[0] });
+ sub _build_eight { {} }
+ has nine => (is => 'lazy', coerce => sub { $c_ran = 1; $_[0] });
+ sub _build_nine { {} }
+ has ten => (is => 'lazy', default => 5 );
+ has eleven => (is => 'ro', default => 5 );
+ has twelve => (is => 'lazy', default => 0 );
+ has thirteen => (is => 'ro', default => 0 );
+ has fourteen => (is => 'ro', required => 1, builder => '_build_fourteen');
+ sub _build_fourteen { {} }
}
sub check {
check four => map Foo->new->{four}, 1..2;
+check five => map Foo->new->{five}, 1..2;
+
+check six => map Foo->new->{six}, 1..2;
+
+check seven => map Foo->new->{seven}, 1..2;
+
+check fourteen => map Foo->new->{fourteen}, 1..2;
+
+check eight => map Foo->new->{eight}, 1..2;
+ok($c_ran, 'coerce defaults');
+
+$c_ran = 0;
+
+check nine => map Foo->new->nine, 1..2;
+ok($c_ran, 'coerce lazy default');
+
+is(Foo->new->ten, 5, 'non-ref default');
+is(Foo->new->eleven, 5, 'eager non-ref default');
+is(Foo->new->twelve, 0, 'false non-ref default');
+is(Foo->new->thirteen, 0, 'eager false non-ref default');
+
done_testing;