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 { {} }
}
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;
+
done_testing;