line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package |
2
|
|
|
|
|
|
|
DateTimeX::Lite; |
3
|
1
|
|
|
1
|
|
6
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
181
|
|
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
# don't want to override CORE::time() |
6
|
1
|
|
|
1
|
1
|
8
|
sub DateTimeX::Lite::time { goto &hms } |
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
*wday = \&day_of_week; |
9
|
|
|
|
|
|
|
*dow = \&day_of_week; |
10
|
|
|
|
|
|
|
*doq = \&day_of_quarter; |
11
|
|
|
|
|
|
|
*doy = \&day_of_year; |
12
|
|
|
|
|
|
|
*datetime = \&iso8601; |
13
|
|
|
|
|
|
|
*language = \&locale; |
14
|
|
|
|
|
|
|
*mon = \&month; |
15
|
|
|
|
|
|
|
*day_of_month = \&day; |
16
|
|
|
|
|
|
|
*mday = \&day; |
17
|
|
|
|
|
|
|
*min = \&minute; |
18
|
|
|
|
|
|
|
*sec = \&second; |
19
|
|
|
|
|
|
|
*date = \&ymd; |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
# deprecated |
22
|
1
|
|
|
1
|
0
|
5
|
sub era { goto \&era_abbr }; |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
1; |
25
|
|
|
|
|
|
|
|