6 use Test::More tests => 6;
15 package Test::Attribute::Inline::Documentation;
20 The 'foo' attribute is my favorite
21 attribute in the whole wide world.
26 my $foo_attr = Test::Attribute::Inline::Documentation->meta->get_attribute('foo');
28 ok($foo_attr->has_documentation, '... the foo has docs');
29 is($foo_attr->documentation,
31 The 'foo' attribute is my favorite
32 attribute in the whole wide world.
34 '... got the foo docs');
39 package Test::For::Lazy::TypeConstraint;
41 use Moose::Util::TypeConstraints;
43 has 'bad_lazy_attr' => (
47 default => sub { "test" },
50 has 'good_lazy_attr' => (
54 default => sub { [] },
59 my $test = Test::For::Lazy::TypeConstraint->new;
60 isa_ok($test, 'Test::For::Lazy::TypeConstraint');
64 } '... this does not work';
67 $test->good_lazy_attr;
68 } '... this does not work';