Branch Coverage

blib/lib/Devel/IntelliPerl.pm
Criterion Covered Total %
branch 33 56 58.9


line true false branch
42 0 0 unless $self->filename
46 0 0 if $parent eq $parent->parent
47 0 0 unless -d $parent
48 0 0 if -e $parent->subdir('lib')
57 9 42 if (defined $line)
69 3 2 if length $self->line >= $self->column
82 10 0 if ($line =~ /.*?(\$?$CLASS(->($KEYWORD))*)->($KEYWORD)?$/)
90 11 0 if ($line =~ /.*?(\$?$CLASS)->($KEYWORD)?$/)
101 0 4 unless $package
114 0 4 if ($@)
127 0 16 if ($line =~ /\Q$keyword\E.*?($CLASS)->new/) { }
9 7 elsif ($line =~ /\Q$keyword\E.*?new ($CLASS)/) { }
0 7 elsif ($line =~ /#.*\Q$keyword\E isa ($CLASS)/) { }
146 1 16 if ($@)
160 10 1 if ($meta->has_attribute($method)) { }
1 0 elsif ($meta->has_method($method) and my $method_meta = $meta->get_method($method) and $meta->get_method($method)->isa('MooseX::Method::Signatures::Meta::Method')) { }
164 10 0 if $type_constraint->isa('Moose::Meta::TypeConstraint::Class')
169 10 0 if $class_tc
182 1 0 if $type_constraint->isa('Moose::Meta::TypeConstraint::Class')
186 0 1 if $type_constraint->can('type_constraints')
190 1 0 if $class_tc
192 1 0 if $class_tc
196 5 6 @rest ? :
208 3 26 if ($keyword =~ /^\$self$/) { }
9 17 elsif ($keyword =~ /^$VAR$/) { }
11 6 elsif ($keyword =~ /^(\$?$CLASS)(->($KEYWORD))+$/) { }
229 0 8 unless $class and $class =~ /^$CLASS$/
232 0 8 if ($@)