| line |
true |
false |
branch |
|
25
|
0 |
19 |
if $package eq 'Inline::denter' |
|
36
|
95 |
0 |
if ($o->{'level'} == 0 and $o->{'content'} =~ /^(\w+)\s*$comma\s*(.*)$/) |
|
56
|
76 |
114 |
if ($o->{'content'} =~ /^([\%\@\$])
(\w(?:\w|::)*)?
\s*$/x) { } |
|
|
0 |
114 |
elsif ($o->{'content'} =~ /^\?\s*$/) { } |
|
61
|
0 |
0 |
$1 eq '@' ? : |
|
|
76 |
0 |
$1 eq '%' ? : |
|
63
|
76 |
0 |
if ($1 eq '%') { } |
|
|
0 |
0 |
elsif ($1 eq '@') { } |
|
72
|
0 |
76 |
if length $class |
|
84
|
0 |
0 |
if $ref |
|
92
|
0 |
114 |
if ($o->{'content'} =~ /^\<\<(\w+)(\-?)\s*$/) { } |
|
|
0 |
114 |
elsif ($o->{'content'} =~ /^\"/) { } |
|
101
|
0 |
0 |
if $o->{'done'} |
|
102
|
0 |
0 |
if $chomp |
|
105
|
0 |
0 |
unless $o->{'content'} =~ /^\".*\"\s*$/ |
|
124
|
0 |
95 |
unless defined $key and defined $value |
|
128
|
0 |
76 |
if $o->{'level'} > $level |
|
134
|
95 |
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 |
190 |
unless @{$o->{'lines'};} |
|
192
|
19 |
190 |
unless @{$o->{'lines'};} |
|
197
|
0 |
190 |
if /^(\s*$|\#)/ |
|
200
|
0 |
190 |
unless /^(( {$width})*)(\S.*)$/ |
|
210
|
0 |
13 |
if $package eq 'Inline::denter' |
|
215
|
130 |
0 |
if /^\*$package\::\w+$/ |
|
225
|
13 |
273 |
unless defined $_ |
|
227
|
247 |
26 |
unless ref $_ |
|
229
|
26 |
0 |
if ref $_ eq 'HASH' and not /=/ or /=HASH/ |
|
231
|
0 |
0 |
if ref $_ eq 'ARRAY' and not /=/ or /=ARRAY/ |
|
233
|
0 |
0 |
if ref $_ eq 'SCALAR' and not /=/ or /=SCALAR/ |
|
235
|
0 |
0 |
if ref $_ eq 'REF' |
|
243
|
0 |
247 |
if ($data =~ /\n/) { } |
|
|
13 |
234 |
elsif ($data =~ /^[\s\%\@\$\\?\"]|\s$/ or $data =~ /\Q$o->{'comma'}\E/ or $data =~ /[\x00-\x1f]/ or $data eq '') { } |
|
246
|
0 |
0 |
$data =~ s/\n\Z// ? : |
|
248
|
0 |
0 |
if $o->{'key'} |
|
256
|
0 |
13 |
if $o->{'key'} |
|
260
|
0 |
234 |
if $o->{'key'} |
|
268
|
0 |
26 |
if ref $stream |
|
272
|
0 |
156 |
if ($key =~ /\n/ or $key =~ /\Q$o->{'comma'}\E/) { } |
|
|
0 |
156 |
elsif ($data =~ /^[\s\%\@\$\\?\"]|\s$/) { } |
|
276
|
0 |
0 |
($o->{'key'} = $key) =~ s/\n\Z//m ? : |
|
293
|
0 |
0 |
if ref $stream |
|
306
|
0 |
0 |
if ref $stream |
|
316
|
0 |
0 |
if ref $stream |
|
324
|
0 |
13 |
if $o->{'key'} |
|
338
|
0 |
26 |
unless $data =~ /^(([\w:]+)=)?$type\(0x([0-9a-f]+)\)$/ |
|
341
|
0 |
26 |
if defined $2 |
|
344
|
0 |
26 |
if $o->{'xref'}{$3} > 1 |
|
346
|
0 |
26 |
if $o->{'key'} |