Branch Coverage

blib/lib/Class/Meta/Method.pm
Criterion Covered Total %
branch 54 58 93.1


line true false branch
62 2 31 unless UNIVERSAL::isa($caller, 'Class::Meta') or UNIVERSAL::isa($caller, 'Class::Meta::Method')
68 1 30 if @_ % 2
75 2 28 unless $p{'name'}
77 1 27 if $p{'name'} =~ /\W/
83 2 25 if exists $$class{'meths'}{$p{'name'}} or exists $$class{'ctors'}{$p{'name'}}
89 11 14 if (exists $p{'view'}) { }
91 2 3 unless $p{'view'} == 4 or $p{'view'} == 2 or $p{'view'} == 3 or $p{'view'} == 1
102 4 19 if (exists $p{'context'}) { }
104 2 2 unless $p{'context'} == 2 or $p{'context'} == 1
114 4 17 if ($p{'caller'}) { }
116 4 0 unless $ref and $ref eq 'CODE'
120 15 2 if $p{'view'} > 1
124 5 12 if ($p{'code'})
126 0 5 unless $ref and $ref eq 'CODE'
137 15 2 if ($p{'view'} > 1)
138 14 1 unless $p{'view'} == 3
140 14 1 if ($p{'view'} > 2)
142 13 1 if $p{'view'} == 4
261 1 11 unless my $code = $$self{'caller'}
290 0 14 unless UNIVERSAL::isa($caller, 'Class::Meta') or UNIVERSAL::isa($caller, 'Class::Meta::Method')
296 5 9 if (my $code = delete $$self{'code'})
299 3 2 if ($$self{'view'} < 4)
302 1 2 if ($$self{'view'} == 2) { }
1 1 elsif ($$self{'view'} == 1) { }
1 0 elsif ($$self{'view'} == 3) { }
304 2 2 unless UNIVERSAL::isa(scalar caller, $pack)
311 3 1 unless caller eq $pack
320 1 3 if $caller eq $pack
322 1 2 if UNIVERSAL::isa($caller, $pkg)