| line |
true |
false |
branch |
|
138
|
57 |
0 |
$_[0] =~ /^(?:$RE_begin|$RE_example)\b/ ? : |
|
146
|
1 |
56 |
if ($pod =~ /^$RE_example\b/) |
|
153
|
0 |
56 |
if $begin |
|
158
|
56 |
0 |
if (@lines and $lines[-1] =~ /^=end\s+(?:test|testing)\b/o) |
|
164
|
1 |
55 |
unless $class->_check_nesting(\@lines, $begin) |
|
187
|
148 |
43 |
unless $parts[$i] =~ /^(0|[1-9]\d*)$/ |
|
193
|
0 |
27 |
if (@parts == 2 and $parts[0] eq 'test' and $parts[1] eq 'setup') |
|
196
|
9 |
37 |
if (@parts >= 2 and $parts[0] eq 'testing' and $parts[1] eq 'SETUP') |
|
201
|
0 |
55 |
if ($parts[0] eq 'test' and not $$self{'setup'}) |
|
211
|
9 |
46 |
unless @parts |
|
214
|
0 |
46 |
if (grep {not /^[\w:]+$/;} @parts) |
|
220
|
9 |
37 |
if ($$self{'setup'}) { } |
|
224
|
0 |
37 |
unless ($$self{'name'} =~ /^[^\W\d]\w*$/) |
|
228
|
27 |
19 |
unless @parts |
|
231
|
0 |
19 |
unless (shift @parts eq 'after') |
|
240
|
26 |
2 |
if ($part =~ /^[^\W\d]\w*$/) { } |
|
|
2 |
0 |
elsif ($part =~ /::/) { } |
|
241
|
0 |
26 |
if ($self->setup) |
|
265
|
0 |
1 |
if $begin |
|
270
|
1 |
0 |
if (@lines and $lines[-1] =~ /^=for\s+example\s+end\b/o) |
|
276
|
0 |
1 |
unless $class->_check_nesting(\@lines, $begin) |
|
304
|
0 |
2 |
if (length $string > 30) |
|
319
|
1 |
56 |
if ($bad_line) |
|
363
|
0 |
17 |
unless my $elements = _ARRAY(shift()) |
|
369
|
21 |
50 |
if ($element =~ /^package\s+([\w:']+)/) |
|
375
|
0 |
50 |
unless ($element =~ /^=/) |
|
380
|
1 |
49 |
unless my $Section = 'Test::Inline::Section'->new($element, $context) |
|
384
|
16 |
0 |
@Sections ? : |
|
437
|
347 |
138 |
if defined $_[0]{'name'} |