Branch Coverage

blib/lib/variable.pm
Criterion Covered Total %
branch 5 24 20.8


line true false branch
26 1 3 unless @_
30 0 3 unless defined $name
32 3 0 if ($name =~ /^_?[^\W_\d]\w*\z/ and not $forbidden{$name}) { }
0 0 elsif ($forced_into_main{$name} and $caller ne 'main') { }
0 0 elsif ($name =~ /^__/) { }
0 0 elsif ($name =~ /^[A-Za-z_]\w*\z/) { }
0 0 elsif ($name =~ /^[01]?\z/) { }
43 0 0 if (warnings::enabled())
44 0 0 if ($keywords{$name}) { }
0 0 elsif ($forced_into_main{$name}) { }
57 0 0 if (@_) { }
70 0 3 if (@_ > 1)