line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package DateTimeX::Lite; |
2
|
1
|
|
|
1
|
|
6
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
295
|
|
3
|
|
|
|
|
|
|
|
4
|
1
|
|
|
1
|
0
|
8
|
sub month_0 { $_[0]->{local_c}{month} - 1 } |
5
|
0
|
|
|
0
|
0
|
0
|
sub mon_0 { goto &month_0 }; |
6
|
0
|
|
|
0
|
0
|
0
|
sub quarter_0 { $_[0]->{local_c}{quarter} - 1 } |
7
|
|
|
|
|
|
|
|
8
|
4
|
|
|
4
|
0
|
25
|
sub day_of_month_0 { $_[0]->{local_c}{day} - 1 } |
9
|
|
|
|
|
|
|
*day_0 = \&day_of_month_0; |
10
|
|
|
|
|
|
|
*mday_0 = \&day_of_month_0; |
11
|
|
|
|
|
|
|
|
12
|
3
|
|
|
3
|
0
|
32
|
sub day_of_week_0 { $_[0]->{local_c}{day_of_week} - 1 } |
13
|
|
|
|
|
|
|
*wday_0 = \&day_of_week_0; |
14
|
|
|
|
|
|
|
*dow_0 = \&day_of_week_0; |
15
|
|
|
|
|
|
|
|
16
|
2
|
|
|
2
|
0
|
10
|
sub day_of_quarter_0 { $_[0]->day_of_quarter - 1 } |
17
|
|
|
|
|
|
|
*doq_0 = \&day_of_quarter_0; |
18
|
|
|
|
|
|
|
|
19
|
3
|
|
|
3
|
0
|
56
|
sub day_of_year_0 { $_[0]->{local_c}{day_of_year} - 1 } |
20
|
|
|
|
|
|
|
*doy_0 = \&day_of_year_0; |
21
|
|
|
|
|
|
|
|
22
|
3
|
|
|
3
|
0
|
18
|
sub hour_12_0 { $_[0]->hour % 12 } |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
1; |