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 |