| 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
|