| line |
true |
false |
branch |
|
30
|
0 |
0 |
unless $1 |
|
|
0 |
0 |
unless ($attr ||= '') =~ s/\A Export (?: \( (.*) \) )? \z/'' unless $1;/emsx |
|
38
|
0 |
0 |
if (my(@bad_tags) = grep({not /\A :$IDENT \z/msx;} @tagsets)) |
|
39
|
0 |
0 |
@bad_tags == 1 ? : |
|
65
|
0 |
0 |
unless my $sym = Attribute::Handlers::findsym($package, $sub_ref, 'CODE') |
|
92
|
0 |
0 |
if (my($sub_name) = $request =~ /\A &? ($IDENT) (?:\(\))? \z/msx) { } |
|
|
0 |
0 |
elsif ($request =~ /\A :$IDENT \z/msx and $subs_ref = $$tagset{$request}) { } |
|
93
|
0 |
0 |
if exists $request{$sub_name} |
|
96
|
0 |
0 |
if (my $sub_ref = *{$package . '::' . $sub_name;}{'CODE'}) |
|
97
|
0 |
0 |
if ($$is_exported{$sub_ref}) |
|
118
|
0 |
0 |
if $errors and not $real_import |
|
121
|
0 |
0 |
unless (@_) |
|
134
|
0 |
0 |
if $real_import |