| line |
true |
false |
branch |
|
280
|
0 |
0 |
unless (defined $Pod::Select::myData{'_SECTION_HEADINGS'}) |
|
308
|
0 |
0 |
unless defined $self->{'_SECTION_HEADINGS'} |
|
310
|
0 |
0 |
@_ > 0 && $_[0] =~ /^\d+$/ ? : |
|
356
|
0 |
0 |
$sections[0] eq '+' ? : |
|
359
|
0 |
0 |
unless (@sections) |
|
360
|
0 |
0 |
unless $add |
|
364
|
0 |
0 |
unless $add and exists $Pod::Select::myData{'_SELECTED_SECTIONS'} |
|
369
|
0 |
0 |
if (defined($_ = _compile_section_spec($spec))) { } |
|
446
|
0 |
0 |
exists $Pod::Select::myData{'_SELECTED_SECTIONS'} ? : |
|
447
|
0 |
0 |
unless defined $selections and @{$selections;} |
|
452
|
0 |
0 |
unless defined $headings[$i] |
|
467
|
0 |
0 |
$negated ? : |
|
469
|
0 |
0 |
unless $match |
|
471
|
0 |
0 |
if $match |
|
500
|
0 |
0 |
unless defined $Pod::Select::myData{'_SECTION_HEADINGS'} |
|
504
|
0 |
0 |
if (/^=((?:sub)*)(?:head(?:ing)?|sec(?:tion)?)(\d*)\s+(.*?)\s*$/) |
|
508
|
0 |
0 |
if not length $level or length $1 |
|
590
|
0 |
0 |
if ($ref and $ref eq 'HASH') { } |
|
|
0 |
0 |
elsif (not $ref or $ref eq 'GLOB') { } |
|
602
|
0 |
0 |
if $key =~ /^-se[cl]/ |
|
608
|
0 |
0 |
if exists $opts{'-output'} |
|
613
|
0 |
0 |
if defined $opts{'-sections'} and ref $opts{'-sections'} eq "ARRAY" |
|
628
|
0 |
0 |
unless $num_inputs > 0 |
|
682
|
0 |
0 |
unless defined $regexs[$i] and length $regexs[$i] |
|
688
|
0 |
0 |
if $_ eq "!" |
|
693
|
0 |
0 |
if ($@) { } |
|
699
|
0 |
0 |
unless /^\^/ |
|
700
|
0 |
0 |
unless /\$$/ |
|
701
|
0 |
0 |
if $negated |
|
704
|
0 |
0 |
!$bad_regexs ? : |