Branch Coverage

blib/lib/Tk/PerlMethodList.pm
Criterion Covered Total %
branch 0 54 0.0


line true false branch
224 0 0 if ($position =~ /^(\d+)\./) { }
252 0 0 unless $key =~ /$regex/
257 0 0 if ref $var eq 'GLOB' and *{$var;}{'CODE'} and $state = 'declared' and defined &{*{$var;}{'CODE'};}
259 0 0 if ref $var eq 'SCALAR' and $$var == -1
261 0 0 if ($state)
265 0 0 if ($state eq 'defined')
296 0 0 if $converted
297 0 0 unless ($$element{'file'})
303 0 0 unless $filename
304 0 0 if ($filename and $filename ne $last_filename)
309 0 0 $module_source =~ /sub\s+$symbol(\W.*)?$/m ? :
321 0 0 if ($$element{'defined_as'} =~ /\*(.*)::(.*)$/)
329 0 0 unless ($$element{$_} eq $$element{"source$_"})
335 0 0 unless $is_alias
351 0 0 unless ('Class::Inspector'->loaded($classname))
371 0 0 if $length > $max_width{$_}
387 0 0 $$element{'overridden'} ? :
0 0 $$element{'source_avail'} ? :
401 0 0 exists $$inc_files{$filename} ? :
403 0 0 unless ($path_name)
404 0 0 if ($filename =~ /autosplit into .*lib.auto.(.*\.al)/)
408 0 0 if ($_ =~ /$seg/)
425 0 0 if $classname
437 0 0 unless $filename
440 0 0 if (not $c_v && $c_v->Exists) { }
453 0 0 unless ($content)
464 0 0 if $regex