Branch Coverage

blib/lib/Mooish/Caller/Util.pm
Criterion Covered Total %
branch 45 62 72.5


line true false branch
34 0 165 if ($with_args) { }
38 0 0 if @caller
43 10 155 unless @caller
45 26 129 if ($i == 1) { }
47 24 2 if ($caller[3] =~ /(.+)::BUILD(ARGS)?\z/) { }
54 14 10 if ($is_build) { }
55 0 14 if ($caller[0] eq 'Method::Generate::BuildAll' or $caller[0] eq 'Method::Generate::Constructor') { }
4 10 elsif ($caller[0] eq 'Mo::build') { }
4 6 elsif ($caller[0] eq 'Class::MOP::Method') { }
4 2 elsif (grep {$_ eq 'Mouse::Object';} @{"${subpkg}::ISA";}) { }
73 0 10 if ($caller[0] eq 'Moo::Object') { }
4 6 elsif ($caller[0] eq 'Moose::Object') { }
4 2 elsif (grep {$_ eq 'Mouse::Object';} @{"${subpkg}::ISA";}) { }
88 44 85 unless ($wrappers_done)
89 32 12 if ($is_build) { }
90 8 24 if ($objsys eq 'Mo') { }
0 24 elsif ($objsys eq 'Moo') { }
20 4 elsif ($objsys eq 'Moose') { }
91 4 4 if $caller[3] eq 'Mo::build::__ANON__'
94 0 0 if $caller[0] eq 'Moo::Object' or $caller[3] eq 'Moo::Object::new'
98 8 4 if $caller[0] eq 'Moose::Object' or $caller[0] eq 'Moose::Meta::Class' or $caller[3] eq 'Moose::Object::new'
103 0 4 if ($] < 5.014)
104 0 0 if $skips++ < 1 and $caller[3] =~ /eval/
109 0 12 if ($objsys eq 'Moo') { }
8 4 elsif ($objsys eq 'Moose') { }
110 0 0 if $caller[3] eq 'Moo::Object::new'
113 4 4 if $caller[3] eq 'Moose::Object::new'
116 0 4 if ($] < 5.014)
117 0 0 if $skips++ < 1 and $caller[3] =~ /eval/
127 10 95 if $routine eq 'get_constructor_caller' and $j > $start
130 10 10 if ($routine eq 'get_constructor_caller') { }