gistfile1.pl

package Foo;
use Moose;
use Test::More;
has foo => ( is => 'rw', lazy => 1, predicate => 'has_foo', default => 1 );

my $foo = new Foo;
ok($foo->has_foo);                                        # fail
ok($foo->meta->get_attribute('foo')->has_value($foo));    # fail
ok($foo->foo);                                            # ok
ok($foo->has_foo);                                        # ok