| line |
true |
false |
branch |
|
38
|
1 |
0 |
unless $1 |
|
|
0 |
1 |
unless ($attr ||= '') =~ s/\A Export (?: \( (.*) \) )? \z/'' unless $1;/emsx |
|
46
|
0 |
1 |
if (my(@bad_tags) = grep({not /\A :$IDENT \z/msx;} @tagsets)) |
|
47
|
0 |
0 |
@bad_tags == 1 ? : |
|
86
|
1 |
0 |
if ref $var_ref eq 'CODE' |
|
90
|
0 |
0 |
unless my $sym_tab_ref = eval {
do {
peek_my($up_level)
}
} |
|
94
|
0 |
0 |
if $var_ref == $sym_tab_ref->{$var_name} |
|
108
|
0 |
1 |
unless my $sym = Attribute::Handlers::findsym($package, $sub_ref, $type) || $name_of{$sub_ref} |
|
111
|
1 |
0 |
if (ref $sym) |
|
144
|
1 |
0 |
if (my($sub_name) = $request =~ /\A &? ($IDENT) (?:\(\))? \z/msx) { } |
|
|
0 |
0 |
elsif (my($sigil, $name) = $request =~ /\A ([\$\@%])($IDENT) \z/msx) { } |
|
|
0 |
0 |
elsif ($request =~ /\A :$IDENT \z/msx and $subs_ref = $tagset->{$request}) { } |
|
145
|
0 |
1 |
if (exists $request{$sub_name}) |
|
151
|
1 |
0 |
if (my $sub_ref = *{$package . '::' . $sub_name;}{'CODE'}) |
|
152
|
1 |
0 |
if ($is_exported->{$sub_ref}) |
|
160
|
0 |
0 |
if exists $request{$sigil . $name} |
|
163
|
0 |
0 |
if (my $var_ref = *{$package . '::' . $name;}{$type_for{$sigil}}) |
|
164
|
0 |
0 |
if ($is_exported->{$var_ref}) |
|
184
|
0 |
1 |
if $errors and not $real_import |
|
187
|
0 |
1 |
unless ($args_supplied) |
|
202
|
0 |
1 |
if ($real_import) |
|
205
|
0 |
0 |
if (defined $_[$idx]) { } |