line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Panda::Date; |
2
|
1
|
|
|
1
|
|
29119
|
use parent 'Panda::Export'; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
6
|
|
3
|
1
|
|
|
1
|
|
73
|
use 5.012; |
|
1
|
|
|
|
|
4
|
|
4
|
1
|
|
|
1
|
|
35
|
use Panda::Time; |
|
0
|
|
|
|
|
|
|
|
0
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
use Panda::Date::Rel; |
6
|
|
|
|
|
|
|
use Panda::Date::Int; |
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
our $VERSION = '3.0.6'; |
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
require Panda::XSLoader; |
11
|
|
|
|
|
|
|
Panda::XSLoader::bootstrap('Panda::Date', $VERSION); |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
Panda::Export->import( |
14
|
|
|
|
|
|
|
E_OK => 0, |
15
|
|
|
|
|
|
|
E_UNPARSABLE => 1, |
16
|
|
|
|
|
|
|
E_RANGE => 2, |
17
|
|
|
|
|
|
|
SEC => rdate_const("1s"), |
18
|
|
|
|
|
|
|
MIN => rdate_const("1m"), |
19
|
|
|
|
|
|
|
HOUR => rdate_const("1h"), |
20
|
|
|
|
|
|
|
DAY => rdate_const("1D"), |
21
|
|
|
|
|
|
|
MONTH => rdate_const("1M"), |
22
|
|
|
|
|
|
|
YEAR => rdate_const("1Y"), |
23
|
|
|
|
|
|
|
); |
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
use overload |
26
|
|
|
|
|
|
|
'""' => \&to_string, |
27
|
|
|
|
|
|
|
'bool' => \&to_bool, |
28
|
|
|
|
|
|
|
'0+' => \&to_number, |
29
|
|
|
|
|
|
|
'<=>' => \&compare, |
30
|
|
|
|
|
|
|
'cmp' => \&compare, |
31
|
|
|
|
|
|
|
'+' => \&add_new, |
32
|
|
|
|
|
|
|
'+=' => \&add, |
33
|
|
|
|
|
|
|
'-' => \&subtract_new, |
34
|
|
|
|
|
|
|
'-=' => \&subtract, |
35
|
|
|
|
|
|
|
'=' => sub { $_[0] }, |
36
|
|
|
|
|
|
|
fallback => 1; |
37
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
1; |