| line |
true |
false |
branch |
|
325
|
0 |
0 |
if ($DEBUG) |
|
337
|
0 |
0 |
wantarray ? : |
|
353
|
0 |
0 |
if $param eq 'ODF::lpOD::Common' |
|
366
|
0 |
0 |
unless $arg |
|
368
|
0 |
0 |
$v ~~ ['false', 'off', 'no'] ? : |
|
373
|
0 |
0 |
is_true(shift()) ? : |
|
379
|
0 |
0 |
unless defined $arg |
|
380
|
0 |
0 |
is_false($arg) ? : |
|
386
|
0 |
0 |
unless defined $value |
|
387
|
0 |
0 |
is_true($value) ? : |
|
392
|
0 |
0 |
unless my $type = shift() |
|
393
|
0 |
0 |
$type ~~ \@DATA_TYPES ? : |
|
399
|
0 |
0 |
unless defined $value |
|
405
|
0 |
0 |
unless is_numeric $value |
|
409
|
0 |
0 |
if (is_true($value)) { } |
|
420
|
0 |
0 |
if (is_numeric $value) { } |
|
427
|
0 |
0 |
defined $num ? : |
|
450
|
0 |
0 |
unless my $arg = shift() |
|
451
|
0 |
0 |
if ref $arg or $arg eq 'ODF::lpOD::Common' |
|
453
|
0 |
0 |
unless ($alpha =~ /^[A-Z]*$/) |
|
455
|
0 |
0 |
if $alpha =~ /^[0-9\-]*$/ |
|
474
|
0 |
0 |
if ($ra) { } |
|
|
0 |
0 |
elsif ($arg eq 'ODF::lpOD::Common') { } |
|
476
|
0 |
0 |
if ($ra eq 'ARRAY') { } |
|
483
|
0 |
0 |
unless defined $arg |
|
485
|
0 |
0 |
unless $coord =~ /[A-Z]/ |
|
491
|
0 |
0 |
unless $c |
|
493
|
0 |
0 |
if (defined $r and $r gt '') { } |
|
507
|
0 |
0 |
if ref $arg or $arg eq 'ODF::lpOD::Common' |
|
508
|
0 |
0 |
unless defined $arg and $arg =~ /:/ |
|
531
|
0 |
0 |
if $charset eq 'ODF::lpOD::Common' |
|
533
|
0 |
0 |
unless ($enc) |
|
546
|
0 |
0 |
if $charset eq 'ODF::lpOD::Common' |
|
548
|
0 |
0 |
unless ($enc) |
|
561
|
0 |
0 |
unless $INPUT_CHARSET |
|
563
|
0 |
0 |
unless ($INPUT_ENCODER) |
|
568
|
0 |
0 |
defined $text ? : |
|
574
|
0 |
0 |
unless $OUTPUT_CHARSET |
|
576
|
0 |
0 |
unless ($OUTPUT_ENCODER) |
|
582
|
0 |
0 |
defined $text ? : |
|
602
|
0 |
0 |
unless my $iso_date = shift() |
|
603
|
0 |
0 |
unless $iso_date =~ /T/ |
|
616
|
0 |
0 |
unless defined $expr |
|
625
|
0 |
0 |
unless defined $expr |
|
635
|
0 |
0 |
if (defined $start and abs $start >= $ln) |
|
641
|
0 |
0 |
if (defined $start) |
|
643
|
0 |
0 |
if $start < 0 |
|
644
|
0 |
0 |
defined $range ? : |
|
648
|
0 |
0 |
if (not defined $opt{'replace'}) { } |
|
650
|
0 |
0 |
if ($content =~ /$expr/) { } |
|
653
|
0 |
0 |
if defined $start |
|
657
|
0 |
0 |
wantarray ? : |
|
662
|
0 |
0 |
wantarray ? : |
|
669
|
0 |
0 |
if (wantarray) { } |
|
675
|
0 |
0 |
$count ? : |
|
686
|
0 |
0 |
unless -r $f and -f $f |
|
694
|
0 |
0 |
if (wantarray) |
|
698
|
0 |
0 |
if (defined $suffix) |
|
710
|
0 |
0 |
unless my $url = shift() |
|
713
|
0 |
0 |
if (not ref $url and $url =~ /:/ and not uc($url) =~ /^[A-Z]:/) { } |
|
721
|
0 |
0 |
unless ref $url or -r -f -e $url |
|
730
|
0 |
0 |
unless my $url = shift() |
|
734
|
0 |
0 |
if (ref $url eq 'SCALAR') { } |
|
|
0 |
0 |
elsif ($opt{'document'}) { } |
|
747
|
0 |
0 |
if ($source) { } |
|
751
|
0 |
0 |
unless defined $w |
|
752
|
0 |
0 |
if (wantarray) { } |
|
770
|
0 |
0 |
unless my $arg = shift() |
|
773
|
0 |
0 |
if (ref $arg) { } |
|
|
0 |
0 |
elsif ($arg) { } |
|
779
|
0 |
0 |
if ($arg =~ /,/) { } |
|
790
|
0 |
0 |
unless $x =~ /[a-zA-Z]$/ |
|
791
|
0 |
0 |
unless $y =~ /[a-zA-Z]$/ |
|
792
|
0 |
0 |
wantarray ? : |
|
802
|
0 |
0 |
unless my $name = shift() |
|
803
|
0 |
0 |
if ($name and $name =~ /^#/) |
|
809
|
0 |
0 |
unless my $code = shift() |
|
816
|
0 |
0 |
unless (-e $filename and -r $filename) |
|
818
|
0 |
0 |
if $DEBUG |
|
823
|
0 |
0 |
unless ($r) |
|
830
|
0 |
0 |
unless $line =~ /^[0-9]/ |
|
833
|
0 |
0 |
if $name |
|
856
|
0 |
0 |
if $type eq 'ODF::lpOD::Common' |
|
859
|
0 |
0 |
unless ($filename) |
|
865
|
0 |
0 |
unless (-r -f -e $fullpath) |
|
889
|
0 |
0 |
if $pp eq 'ODF::lpOD::Common' |
|
890
|
0 |
0 |
if $pp |