The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

TOBYINK / Mite-0.013000 / t / Mite-Attribute / lazy.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
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
84
85

              
#!/usr/bin/perl
use lib 't/lib';
use Test::Mite;
use Mite::Attribute;
tests "Simple test" => sub {
    mite_load <<'CODE';
package Foo;
use Mite::Shim;
has num =>
  lazy => 1,
  isa => 'Int',
  reader => 1,
  writer => 1,
  accessor => 1,
  clearer => 1,
  predicate => 1,
  builder => sub { 99 };
1;
CODE
    my $obj = Foo->new;
    ok !$obj->has_num;
    is $obj->get_num, 99;
    ok $obj->has_num;
    $obj->clear_num;
    ok !$obj->has_num;
    is $obj->num, 99;
    ok $obj->has_num;
    $obj->clear_num;
    ok !$obj->has_num;
    $obj->num(24);
    ok $obj->has_num;
    is $obj->get_num, 24;
    is $obj->num, 24;
    $obj->clear_num;
    ok !$obj->has_num;
};
tests "Lazy default which fails type check" => sub {
    mite_load <<'CODE';
package Bar;
use Mite::Shim;
has num =>
  lazy => 1,
  isa => 'Int',
  reader => 1,
  writer => 1,
  accessor => 1,
  clearer => 1,
  predicate => 1,
  builder => sub { 9.5 };
1;
CODE
    my $obj = Bar->new;
    local $@;
    eval { $obj->num; 1 };
    my $e = $@;
    like $e, qr/Type check failed in default/;
};
tests "is => lazy" => sub {
    mite_load <<'CODE';
package Baz;
use Mite::Shim;
has num => is => 'lazy';
sub _build_num { 99 }
1;
CODE
    my $baz = Baz->new;
    ok ! exists $baz->{num};
    is $baz->num, 99;
    ok exists $baz->{num};
    ok ! eval { $baz->num(42); 1 };
};
done_testing;