| line |
true |
false |
branch |
|
25
|
0 |
22 |
if $package eq "Inline::denter" |
|
36
|
110 |
0 |
if ($o->{'level'} == 0 and $o->{'content'} =~ /^(\w+)\s*$comma\s*(.*)$/) |
|
56
|
88 |
132 |
if ($o->{'content'} =~ /^([\%\@\$])
(\w(?:\w|::)*)?
\s*$/x) { } |
|
|
0 |
132 |
elsif ($o->{'content'} =~ /^\?\s*$/) { } |
|
61
|
0 |
0 |
$1 eq '@' ? : |
|
|
88 |
0 |
$1 eq '%' ? : |
|
63
|
88 |
0 |
if ($1 eq '%') { } |
|
|
0 |
0 |
elsif ($1 eq '@') { } |
|
72
|
0 |
88 |
if length $class |
|
84
|
0 |
0 |
if $ref |
|
92
|
0 |
132 |
if ($o->{'content'} =~ /^\<\<(\w+)(\-?)\s*$/) { } |
|
|
0 |
132 |
elsif ($o->{'content'} =~ /^\"/) { } |
|
101
|
0 |
0 |
if $o->{'done'} |
|
102
|
0 |
0 |
if $chomp |
|
105
|
0 |
0 |
unless $o->{'content'} =~ /^\".*\"\s*$/ |
|
124
|
0 |
110 |
unless defined $key and defined $value |
|
128
|
0 |
88 |
if $o->{'level'} > $level |
|
134
|
110 |
0 |
unless $key =~ /^\<\<(\w+)(\-?)/ |
|
144
|
0 |
0 |
if $o->{'done'} |
|
145
|
0 |
0 |
if $chomp |
|
160
|
0 |
0 |
if $o->{'level'} > $level |
|
170
|
0 |
0 |
if $o->{'level'} != $level |
|
171
|
0 |
0 |
if $o->{'content'} =~ /^[\%\@\$\\]/ |
|
172
|
0 |
0 |
if $o->{'content'} =~ /^\?/ |
|
185
|
0 |
220 |
unless @{$o->{'lines'};} |
|
192
|
22 |
220 |
unless @{$o->{'lines'};} |
|
197
|
0 |
220 |
if /^(\s*$|\#)/ |
|
201
|
0 |
220 |
unless /^(( {$width})*)(\S.*)$/ |
|
211
|
0 |
13 |
if $package eq "Inline::denter" |
|
216
|
130 |
0 |
if /^\*$package\::\w+$/ |
|
226
|
13 |
273 |
unless defined $_ |
|
228
|
247 |
26 |
unless ref $_ |
|
230
|
26 |
0 |
if ref $_ eq "HASH" and not /=/ or /=HASH/ |
|
232
|
0 |
0 |
if ref $_ eq "ARRAY" and not /=/ or /=ARRAY/ |
|
234
|
0 |
0 |
if ref $_ eq "SCALAR" and not /=/ or /=SCALAR/ |
|
236
|
0 |
0 |
if ref $_ eq "REF" |
|
244
|
0 |
247 |
if ($data =~ /\n/) { } |
|
|
13 |
234 |
elsif ($data =~ /^[\s\%\@\$\\?\"]|\s$/ or $data =~ /\Q$o->{'comma'}\E/ or $data =~ /[\x00-\x1f]/ or $data eq '') { } |
|
247
|
0 |
0 |
$data =~ s/\n\Z// ? : |
|
249
|
0 |
0 |
if $o->{'key'} |
|
257
|
0 |
13 |
if $o->{'key'} |
|
261
|
0 |
234 |
if $o->{'key'} |
|
269
|
0 |
26 |
if ref $stream |
|
273
|
0 |
156 |
if ($key =~ /\n/ or $key =~ /\Q$o->{'comma'}\E/) { } |
|
|
0 |
156 |
elsif ($data =~ /^[\s\%\@\$\\?\"]|\s$/) { } |
|
277
|
0 |
0 |
($o->{'key'} = $key) =~ s/\n\Z//m ? : |
|
294
|
0 |
0 |
if ref $stream |
|
307
|
0 |
0 |
if ref $stream |
|
317
|
0 |
0 |
if ref $stream |
|
325
|
0 |
13 |
if $o->{'key'} |
|
339
|
0 |
26 |
unless $data =~ /^(([\w:]+)=)?$type\(0x([0-9a-f]+)\)$/ |
|
342
|
0 |
26 |
if defined $2 |
|
345
|
0 |
26 |
if $o->{'xref'}{$3} > 1 |
|
347
|
0 |
26 |
if $o->{'key'} |