| line |
true |
false |
branch |
|
35
|
4 |
0 |
if exists $warnings::Offsets{'experimental::smartmatch'}
|
|
59
|
0 |
0 |
unless &Getopt::Long::GetOptionsFromArray(\@args, 'chain|c=s', \$chain, 'verbose|v', \$verbose, 'reverse|r!', \$reverse, 'help', \$help)
|
|
70
|
0 |
0 |
if $help
|
|
71
|
0 |
0 |
unless $chain
|
|
91
|
0 |
0 |
unless @handles
|
|
113
|
0 |
0 |
$ret ? :
|
|
137
|
0 |
0 |
if ($meta->{'args'} and ref $meta->{'args'} eq 'HASH')
|
|
139
|
0 |
0 |
if ($verbose) { }
|
|
187
|
0 |
24742 |
unless $info
|
|
199
|
18 |
18 |
/^([A-Za-z0-9]+)\.pm$/ ? :
|
|
201
|
9 |
21 |
opendir($dh, $_) ? :
|
|
246
|
23384 |
23796 |
if ($rem) { }
|
|
276
|
5182 |
14862 |
if ($data =~ /$self->{'regexp'}/) { }
|
|
304
|
942 |
1821 |
grep({$_ eq 'mime';} @$args) ? :
|
|
305
|
942 |
1821 |
$nl ? :
|
|
311
|
84 |
2679 |
if (grep {$_ eq 'yui';} @$args) { }
|
|
379
|
482 |
613 |
if defined $args->[0] and $args->[0] eq 'upper'
|
|
398
|
1151 |
5325 |
if $self->{'upper'}
|
|
448
|
8174 |
0 |
unless ($self->{'manual'})
|
|
457
|
5825 |
4687 |
unless length $data
|
|
458
|
0 |
4687 |
if $self->{'eref'}
|
|
463
|
3049 |
1638 |
$rem ? :
|
|
480
|
3049 |
1638 |
$lm ? :
|
|
486
|
9369 |
4678 |
unless length $data
|
|
487
|
0 |
4678 |
if $self->{'dref'}
|
|
489
|
3049 |
1629 |
$data =~ /(=+)$/ ? :
|
|
504
|
357 |
4678 |
@data ? :
|
|
548
|
758 |
1764 |
$lower ? :
|
|
569
|
2322 |
3441 |
if $self->{'form'}
|
|
596
|
0 |
2416 |
unless exists $maps->{$type}
|
|
619
|
0 |
569 |
if $char =~ /^#([0-9]+)$/
|
|
620
|
260 |
309 |
if $char =~ /^#x([a-fA-F0-9]+)$/
|
|
621
|
309 |
0 |
if exists $self->{'rmap'}{$char}
|
|
649
|
28 |
778 |
if grep {$_ eq 'smtp';} @$args
|
|
657
|
1655 |
484 |
if (length $data < 7)
|
|
661
|
34 |
450 |
if ($data =~ /\A(.*)(\n.{0,6})\z/)
|
|
678
|
31 |
961 |
if $self->{'smtp'}
|
|
679
|
31 |
961 |
if $self->{'smtp'}
|
|
684
|
0 |
12 |
if $chunk =~ /^(.*)(=.?)$/
|
|
687
|
12 |
0 |
if ($data)
|
|
749
|
734 |
2028 |
$flags{'octal'} ? :
|
|
|
806 |
2762 |
$flags{'cstyle'} ? :
|
|
753
|
840 |
2728 |
$flags{'sp'} || $flags{'space'} || $flags{'white'} ? :
|
|
|
826 |
2742 |
$flags{'tab'} || $flags{'white'} ? :
|
|
|
812 |
2756 |
$flags{'nl'} || $flags{'white'} ? :
|
|
755
|
6 |
3562 |
$flags{'glob'} ? :
|
|
798
|
425 |
10488 |
if (length $data and substr($data, -1) eq "\000") { }
|
|
811
|
3171 |
9535 |
if ($self->{'flags'}{'cstyle'})
|
|
821
|
9769 |
16080 |
unless length $val
|
|
822
|
10829 |
5251 |
if $val =~ /^\\/
|
|
867
|
1 |
1149 |
unless length $data
|
|
868
|
354 |
795 |
defined $self->{'start'} ? :
|
|
876
|
13 |
354 |
defined $self->{'start'} ? :
|
|
881
|
26 |
59 |
unless $x or $flag
|
|
893
|
260 |
1256 |
$rem ? :
|
|
896
|
260 |
1256 |
$pad ? :
|
|
900
|
260 |
1256 |
if $pad
|
|
907
|
355 |
995 |
unless length $data
|
|
909
|
489 |
506 |
if (defined $self->{'start'})
|
|
911
|
201 |
288 |
unless length $self->{'start'} > 2
|
|
913
|
0 |
288 |
unless ($data = $self->{'start'}) =~ s/^<~//
|
|
921
|
26 |
823 |
if $s eq 'z'
|
|
922
|
0 |
823 |
if $s gt 's8W-!'
|
|
938
|
13 |
354 |
if defined $self->{'start'} and not length $data
|
|
941
|
0 |
354 |
unless $data =~ s/~>$//
|
|
943
|
260 |
94 |
$rem ? :
|
|
945
|
260 |
94 |
if $pad
|
|
989
|
0 |
40 |
unless $code
|