t/90_bug.t


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

use strict;
use warnings;

use Test::More;
use Test::Exception;

package Foo;
use Moose;
use MooseX::Privacy;

has foo => (
    is        => 'rw',
    isa       => 'Str',
    predicate => 'has_foo',
    clearer   => '_clear_foo',
    lazy      => 1,
    default   => 'BooM!',
    traits    => [qw/Private/],
);

has bar => (
    is     => 'ro',
    isa    => 'Str',
    traits => [qw/Private/],
);

sub public_foo { shift->foo }
sub public_foo_clearer { shift->_clear_foo }
sub public_foo_predicate { shift->has_foo ? return 1 : return 0 }

package main;

my $o = Foo->new();
dies_ok { $o->foo };
dies_ok { $o->bar };
dies_ok { $o->has_foo };
dies_ok { $o->_clear_foo };

is $o->public_foo, 'BooM!';
ok $o->public_foo_predicate;
ok $o->public_foo_clearer;
ok !$o->public_foo_predicate;

done_testing;