1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 17;
use Test::Exception;
BEGIN {
use_ok('Moose');
use_ok('Moose::Meta::Role');
}
{
package FooRole;
our $VERSION = '0.01';
sub foo { 'FooRole::foo' }
}
{
package Foo;
use Moose;
#two checks because the inlined methods are different when
#there is a TC present.
has 'foos' => (is => 'ro', lazy_build => 1);
has 'bars' => (isa => 'Str', is => 'ro', lazy_build => 1);
has 'bazes' => (isa => 'Str', is => 'ro', builder => '_build_bazes');
sub _build_foos { "many foos" }
sub _build_bars { "many bars" }
sub _build_bazes { "many bazes" }
}
{
my $foo_role = Moose::Meta::Role->initialize('FooRole');
my $meta = Foo->meta;
lives_ok{ Foo->new } "lazy_build works";
is(Foo->new->foos, 'many foos' , "correct value for 'foos' before inlining constructor");
is(Foo->new->bars, 'many bars' , "correct value for 'bars' before inlining constructor");
is(Foo->new->bazes, 'many bazes' , "correct value for 'bazes' before inlining constructor");
lives_ok{ $meta->make_immutable } "Foo is imutable";
lives_ok{ $meta->identifier } "->identifier on metaclass lives";
dies_ok{ $meta->add_role($foo_role) } "Add Role is locked";
lives_ok{ Foo->new } "Inlined constructor works with lazy_build";
is(Foo->new->foos, 'many foos' , "correct value for 'foos' after inlining constructor");
is(Foo->new->bars, 'many bars' , "correct value for 'bars' after inlining constructor");
is(Foo->new->bazes, 'many bazes' , "correct value for 'bazes' after inlining constructor");
lives_ok{ $meta->make_mutable } "Foo is mutable";
lives_ok{ $meta->add_role($foo_role) } "Add Role is unlocked";
}
{
package Bar;
use Moose;
sub BUILD { 'bar' }
}
{
package Baz;
use Moose;
extends 'Bar';
sub BUILD { 'baz' }
}
lives_ok { Bar->meta->make_immutable }
'Immutable meta with single BUILD';
lives_ok { Baz->meta->make_immutable }
'Immutable meta with multiple BUILDs';
=pod
Nothing here yet, but soon :)
=cut
|
