275ae59f36b5c3049a1f59d05077e1e8f9d5ba76
[gitmo/Mouse.git] / t / 023-builder.t
1 #!/usr/bin/env perl
2 use strict;
3 use warnings;
4 use Test::More tests => 6;
5
6 my $builder_called = 0;
7
8 do {
9     package Class;
10     use Mouse;
11
12     has name => (
13         is       => 'rw',
14         isa      => 'Str',
15         builder  => '_build_name',
16     );
17
18     sub default_name { "Frank" }
19     sub _build_name {
20         my $self = shift;
21         ++$builder_called;
22         return uc $self->default_name;
23     };
24 };
25
26 my $object = Class->new(name => "Bob");
27 is($builder_called, 0, "builder not called in the constructor when we pass a value");
28 is($object->name, "Bob", "builder doesn't matter when we just set the value in constructor");
29 $object->name("Bill");
30 is($object->name, "Bill", "builder doesn't matter when we just set the value in writer");
31 is($builder_called, 0, "builder not called in the setter");
32 $builder_called = 0;
33
34 my $object2 = Class->new;
35 is($object2->name, "FRANK", "builder called to provide the default value");
36 is($builder_called, 1, "builder called ONCE to provide the default value");
37
38 # XXX: test clearer, lazy