Branch Coverage

blib/lib/Catalyst/ActionRole/MethodSignatureDependencyInjection.pm
Criterion Covered Total %
branch 53 108 49.0


line true false branch
16 0 0 unless $self->attributes->{'UsePrototype'}
28 0 1 unless $self->attributes->{'ExecuteArgsTemplate'}
40 0 21 if ($INC{'Function/Parameters.pm'}) { }
42 0 0 $_->type ? :
57 10 1 $self->use_prototype ? :
93 0 11 unless length $_
97 11 30 if pos $_ == length $_
121 5 36 $what =~ /required/ ? :
122 4 37 if (lc $what eq '$ctx')
123 4 33 if (lc $what eq '$c')
124 0 33 if (lc $what eq '$state')
125 2 31 if (lc $what eq '$req')
126 0 31 if (lc $what eq '$request')
127 0 31 if (lc $what eq '$env')
129 6 25 if (lc $what eq '$res')
130 0 25 if (lc $what eq '$response')
132 0 25 if (lc $what eq '$args')
133 2 0 unless (shift())->req->body_data
2 23 if (lc $what eq '$bodydata')
134 2 21 if (lc $what eq '$bodyparams')
135 2 19 if (lc $what eq '$queryparams')
138 0 19 if (lc $what eq '@args')
139 0 19 if (lc $what eq '%bodyparams')
140 0 0 unless (shift())->req->body_data
0 19 if (lc $what eq '%bodydata')
142 0 19 if (lc $what eq '%queryparams')
143 0 0 unless (shift())->req->body_data
0 19 if (lc $what eq '%body')
144 0 19 if (lc $what eq '%query')
148 2 17 if ($what =~ /^Model/ and not $what =~ /^Model\:/)
149 0 17 if ($what =~ /^View/ and not $what =~ /^View\:/)
151 1 16 if (defined(my $arg_index = ($what =~ /^\$?Arg(\d+).*$/i)[0]))
157 0 16 if ($what =~ /^\$?Args\s/)
162 2 14 if ($what =~ /^\$?Arg\s?.*/i)
164 0 2 unless defined $arg_count
171 0 14 if ($what =~ /^\$?Capture\s?.*/i)
174 0 0 unless defined $arg_count
180 0 14 if (defined(my $capture_index = ($what =~ /^\$?Capture(\d+).*$/i)[0]))
187 14 0 if ($what =~ /^Model\:\:/i)
203 0 14 unless $model
208 0 14 if (defined $rest)
212 0 14 if @inner_deps
218 0 12 unless $c->components->{ref($c) . '::Model::' . $model}
221 0 12 if @rest
227 0 0 if ($what =~ /^View\:\:/i)
231 0 0 unless $view
235 0 0 if (defined $rest)
239 0 0 if @inner_deps
244 0 0 unless $c->components->{ref($c) . '::View::' . $view}
247 0 0 if @rest
253 0 0 if (my $controller = ($what =~ /^Controller\:\:(.+?)\s+.+$/)[0] || ($what =~ /^Controller\:\:(.+)\s+.+$/)[0])
259 0 0 unless $c->components->{ref($c) . '::Controller::' . $controller}
262 0 0 if @rest
271 0 11 unless (scalar @dependencies)