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
|
#!/usr/bin/perl -w
use strict;
use Test::More 'no_plan';
use Test::Exception;
$| = 1;
# =begin testing SETUP
BEGIN {
eval 'use DateTime; use DateTime::Calendar::Mayan;';
if ($@) {
diag 'DateTime & DateTime::Calendar::Mayan required for this test';
ok(1);
exit 0;
}
}
# =begin testing SETUP
{
package My::DateTime;
use Moose;
extends qw( DateTime Moose::Object );
use DateTime::Calendar::Mayan;
has 'mayan_date' => (
is => 'ro',
isa => 'DateTime::Calendar::Mayan',
init_arg => undef,
lazy => 1,
builder => '_build_mayan_date',
clearer => '_clear_mayan_date',
predicate => 'has_mayan_date',
);
sub new {
my $class = shift;
my $obj = $class->SUPER::new(@_);
return $class->meta->new_object(
__INSTANCE__ => $obj,
@_,
);
}
after 'set' => sub {
$_[0]->_clear_mayan_date;
};
sub _build_mayan_date {
DateTime::Calendar::Mayan->from_object( object => $_[0] );
}
}
# =begin testing
{
my $dt = My::DateTime->new( year => 1970, month => 2, day => 24 );
can_ok( $dt, 'mayan_date' );
isa_ok( $dt->mayan_date, 'DateTime::Calendar::Mayan' );
is( $dt->mayan_date->date, '12.17.16.9.19', 'got expected mayan date' );
$dt->set( year => 2009 );
ok( ! $dt->has_mayan_date, 'mayan_date is cleared after call to ->set' );
}
1;
|
