| line |
true |
false |
branch |
|
91
|
24 |
0 |
if ($arg =~ /^(\S+)\s*=\s*(.*)$/) { } |
|
103
|
0 |
247 |
unless defined $string |
|
105
|
44 |
203 |
if $err |
|
112
|
0 |
3 |
unless defined $string |
|
114
|
0 |
3 |
if $err |
|
122
|
0 |
0 |
unless defined $arg |
|
127
|
0 |
0 |
if (not $ref) { } |
|
|
0 |
0 |
elsif ($ref eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($ref eq 'SCALAR') { } |
|
142
|
0 |
0 |
unless ($err) |
|
143
|
0 |
0 |
if $list |
|
156
|
0 |
33 |
if (@a < 1 or @a > 2) |
|
161
|
0 |
33 |
unless defined $args |
|
162
|
32 |
1 |
unless $mode |
|
164
|
0 |
1 |
if ($mode and ($mode ne "exact" and $mode ne "semi" and $mode ne "approx")) |
|
173
|
33 |
0 |
if (not $ref) { } |
|
|
0 |
0 |
elsif ($ref eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($ref eq 'SCALAR') { } |
|
188
|
24 |
9 |
unless ($err) |
|
189
|
1 |
23 |
if $mode |
|
190
|
0 |
24 |
if $list |
|
205
|
0 |
2 |
if $err |
|
211
|
0 |
2 |
unless (wantarray) |
|
221
|
0 |
19 |
if $err |
|
224
|
0 |
19 |
if (not defined $args[0]) { } |
|
|
18 |
1 |
elsif (lc $args[0] eq 'exact' or lc $args[0] eq 'approx' or lc $args[0] eq 'semi') { } |
|
|
0 |
1 |
elsif ($args[0] =~ /^\d+$/) { } |
|
243
|
1 |
18 |
unless $dec |
|
251
|
0 |
19 |
unless (wantarray) |
|
270
|
115 |
133 |
if ($in =~ s/^([^%]+)//) { } |
|
|
0 |
133 |
elsif ($in =~ /^%[yMwdhms][yMwdhms][yMwdhms]/) { } |
|
|
126 |
7 |
elsif ($in =~ s/^%([yMwdhms])([dht])//) { } |
|
282
|
42 |
84 |
if ($scope eq 'd') { } |
|
|
42 |
42 |
elsif ($scope eq 'h') { } |
|
|
42 |
0 |
elsif ($scope eq 't') { } |
|
283
|
14 |
28 |
if ($mode eq 'approx') { } |
|
|
8 |
20 |
elsif ($field eq 'y' or $field eq 'M') { } |
|
|
10 |
10 |
elsif ($mode eq 'semi') { } |
|
|
1 |
9 |
elsif ($field eq 'w' and $business) { } |
|
|
2 |
7 |
elsif ($field eq 'w' || $field eq 'd' and not $business) { } |
|
298
|
14 |
28 |
if ($mode eq 'approx') { } |
|
|
8 |
20 |
elsif ($field eq 'y' or $field eq 'M') { } |
|
|
10 |
10 |
elsif ($mode eq 'semi') { } |
|
|
2 |
8 |
elsif ($field eq 'w') { } |
|
|
1 |
7 |
elsif ($field eq 'd' and not $business) { } |
|
|
4 |
3 |
elsif ($business) { } |
|
315
|
14 |
28 |
if ($mode eq 'approx') { } |
|
|
8 |
20 |
elsif ($field eq 'y' or $field eq 'M') { } |
|
|
10 |
10 |
elsif ($mode eq 'semi') { } |
|
|
1 |
9 |
elsif ($field eq 'w' and $business) { } |
|
|
2 |
7 |
elsif ($field eq 'w' || $field eq 'd' and not $business) { } |
|
|
4 |
3 |
elsif ($business) { } |
|
352
|
0 |
120 |
if (@args and ref $args[0]) { } |
|
366
|
0 |
120 |
if ($err) |
|
369
|
0 |
0 |
if ($err) |
|
370
|
0 |
0 |
if $ref |
|
378
|
49 |
71 |
if ($err) |
|
381
|
0 |
49 |
if ($err) |
|
382
|
0 |
0 |
if $ref |
|
391
|
60 |
60 |
if (@args) |
|
394
|
0 |
120 |
if (@args) |
|
395
|
0 |
0 |
if $ref |
|
401
|
60 |
60 |
if (defined $mode) |
|
402
|
0 |
60 |
if (ref $obj1 eq "Date::Manip::Delta") |
|
403
|
0 |
0 |
if ($obj1->{'data'}{'gotmode'}) { } |
|
404
|
0 |
0 |
if ($mode == 2 or $mode == 3) { } |
|
405
|
0 |
0 |
unless ($obj1->type("business")) |
|
406
|
0 |
0 |
if $ref |
|
410
|
0 |
0 |
if ($obj1->type("business")) |
|
411
|
0 |
0 |
if $ref |
|
416
|
0 |
0 |
if ($mode == 2 or $mode == 3) { } |
|
424
|
0 |
60 |
if (ref $obj2 eq "Date::Manip::Delta") |
|
425
|
0 |
0 |
if ($obj2->{'data'}{'gotmode'}) { } |
|
426
|
0 |
0 |
if ($mode == 2 or $mode == 3) { } |
|
427
|
0 |
0 |
unless ($obj2->type("business")) |
|
428
|
0 |
0 |
if $ref |
|
432
|
0 |
0 |
if ($obj2->type("business")) |
|
433
|
0 |
0 |
if $ref |
|
438
|
0 |
0 |
if ($mode == 2 or $mode == 3) { } |
|
450
|
71 |
49 |
if ($usemode) { } |
|
451
|
11 |
60 |
unless $mode |
|
464
|
71 |
0 |
if (exists $tmp{$mode}) { } |
|
467
|
0 |
0 |
if $ref |
|
483
|
0 |
34 |
if $err |
|
485
|
11 |
23 |
if (defined $dow) |
|
487
|
0 |
11 |
if (exists $Date::Manip::DM6::dmb->{'data'}{'wordmatch'}{'day_char'}{$dow}) { } |
|
|
10 |
1 |
elsif (exists $Date::Manip::DM6::dmb->{'data'}{'wordmatch'}{'day_abb'}{$dow}) { } |
|
|
0 |
1 |
elsif (exists $Date::Manip::DM6::dmb->{'data'}{'wordmatch'}{'day_name'}{$dow}) { } |
|
496
|
7 |
27 |
if ($#time == 0) |
|
500
|
29 |
5 |
if (@time) { } |
|
515
|
0 |
34 |
if $err |
|
517
|
11 |
23 |
if (defined $dow) |
|
519
|
0 |
11 |
if (exists $Date::Manip::DM6::dmb->{'data'}{'wordmatch'}{'day_char'}{$dow}) { } |
|
|
10 |
1 |
elsif (exists $Date::Manip::DM6::dmb->{'data'}{'wordmatch'}{'day_abb'}{$dow}) { } |
|
|
0 |
1 |
elsif (exists $Date::Manip::DM6::dmb->{'data'}{'wordmatch'}{'day_name'}{$dow}) { } |
|
528
|
7 |
27 |
if ($#time == 0) |
|
532
|
29 |
5 |
if (@time) { } |
|
548
|
0 |
5 |
if $err |
|
550
|
3 |
2 |
if ($#time == 0) |
|
567
|
0 |
0 |
if $err |
|
577
|
0 |
0 |
if $err |
|
586
|
0 |
0 |
if $err |
|
595
|
0 |
0 |
if $err |
|
604
|
0 |
93 |
if ($#args == 3) |
|
607
|
0 |
0 |
if $flags |
|
612
|
0 |
93 |
if $err |
|
614
|
93 |
0 |
if (wantarray) |
|
632
|
0 |
0 |
if (@int) |
|
635
|
0 |
0 |
if (@rtime) |
|
645
|
0 |
0 |
defined $base ? : |
|
648
|
0 |
0 |
defined $start ? : |
|
651
|
0 |
0 |
defined $end ? : |
|
663
|
0 |
8 |
if $err |
|
671
|
4 |
4 |
if (not @args) { } |
|
678
|
2 |
2 |
if @args |
|
679
|
0 |
4 |
if (@args) |
|
684
|
1 |
3 |
if (not $arg) { } |
|
691
|
0 |
3 |
if ($err) |
|
701
|
6 |
2 |
unless ($flag) |
|
714
|
1 |
1 |
if ($flag == 1) { } |
|
|
1 |
0 |
elsif ($flag == 2) { } |
|
721
|
0 |
5 |
unless defined $flag |
|
722
|
2 |
3 |
if (exists $ret{$flag}) { } |
|
737
|
1 |
3 |
if (exists $ret{$flag}) { } |
|
789
|
3 |
4 |
if $#ret == 2 |
|
806
|
0 |
0 |
if $yy < $y |
|
807
|
0 |
0 |
if $yy > $y |
|
828
|
0 |
14 |
unless $from |
|
829
|
0 |
14 |
unless $to |
|
834
|
0 |
14 |
if $err |
|
836
|
0 |
14 |
unless $d |
|
847
|
0 |
14 |
unless ($tmp) |
|
849
|
0 |
0 |
unless $tmp |
|
854
|
2 |
12 |
unless ($tmp) |
|
856
|
0 |
2 |
unless $tmp |
|
861
|
0 |
14 |
if $err |
|
868
|
0 |
0 |
if $err |
|
875
|
0 |
2 |
if $err |
|
876
|
1 |
1 |
if (wantarray) { } |
|
888
|
0 |
0 |
if $err |
|
890
|
0 |
0 |
if $err |