line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
1
|
|
|
1
|
|
27269
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
40
|
|
2
|
1
|
|
|
1
|
|
4
|
use warnings; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
21
|
|
3
|
1
|
|
|
1
|
|
11
|
use v5.12; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
28
|
|
4
|
|
|
|
|
|
|
|
5
|
1
|
|
|
1
|
|
336
|
use Test::More tests => 6; |
|
1
|
|
|
|
|
11106
|
|
|
1
|
|
|
|
|
6
|
|
6
|
|
|
|
|
|
|
|
7
|
1
|
|
|
1
|
|
445
|
use Sweet::Now; |
|
1
|
|
|
|
|
6
|
|
|
1
|
|
|
|
|
1481
|
|
8
|
|
|
|
|
|
|
|
9
|
1
|
|
|
|
|
96906
|
my $now = Sweet::Now->new; |
10
|
|
|
|
|
|
|
|
11
|
1
|
|
|
|
|
5
|
ok $now->dd =~ m/\d\d/; |
12
|
1
|
|
|
|
|
462
|
ok $now->mm =~ m/\d\d/; |
13
|
1
|
|
|
|
|
178
|
ok $now->yyyy =~ m/\d\d\d\d/; |
14
|
1
|
|
|
|
|
176
|
ok $now->yyyymmdd =~ m/\d\d\d\d\d\d/; |
15
|
1
|
|
|
|
|
194
|
ok $now->yyyymmddhhmiss =~ m/\d\d\d\d\d\d\d\d\d\d\d\d/; |
16
|
1
|
|
|
|
|
158
|
ok $now->hhmiss =~ m/\d\d\d\d\d\d/; |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
|