Branch Coverage

blib/lib/Dist/Iller/Role/HasPlugins.pm
Criterion Covered Total %
branch 74 104 71.1


line true false branch
59 0 8 unless defined $yaml
62 2 101 if exists $item->{'+config'}
63 95 8 if exists $item->{'+plugin'}
64 1 102 if exists $item->{'+remove_plugin'}
65 2 101 if exists $item->{'+replace_plugin'}
66 1 102 if exists $item->{'+extend_plugin'}
67 2 101 if exists $item->{'+add_plugin'}
77 1 94 unless $self->check_conditionals($plugin)
94 0 2 unless $self->check_conditionals($replacer)
115 0 1 unless $self->check_conditionals($extender)
131 0 2 unless $self->check_conditionals($adder)
147 1 1 $after ? :
1 1 $after ? :
154 1 0 unless $self->check_conditionals($remover)
165 0 6 unless defined $from
166 0 6 unless length $from
167 0 6 unless $from =~ /[^.]\.[^.]/
171 1 100 if (exists $plugin_data->{'+if'}) { }
3 97 elsif (exists $plugin_data->{'+remove_if'}) { }
2 95 elsif (exists $plugin_data->{'+add_if'}) { }
173 0 1 unless defined $type
174 1 0 if $type eq '$env' and not exists $ENV{uc $what}
175 0 0 if $type eq '$env'
180 0 3 unless defined $type
182 0 3 if ($type eq '$env') { }
2 1 elsif ($type eq '$self' and $self->has_config_obj) { }
183 0 0 unless exists $ENV{uc $what}
187 0 2 unless $self->config_obj->$Dist::Iller::Role::HasPlugins::_can($what)
193 0 2 unless defined $type
195 0 2 if ($type eq '$env') { }
1 1 elsif ($type eq '$self' and $self->has_config_obj) { }
196 0 0 unless exists $ENV{uc $what}
200 0 1 unless $self->config_obj->$Dist::Iller::Role::HasPlugins::_can($what)
220 4 34 if ($current_plugin->plugin_name eq $plugin_name)
222 1 3 $after ? :
2 2 $replace ? :
225 2 2 if ($replace) { }
229 1 1 $after ? :
244 0 1 ref $remove eq 'ARRAY' ? :
1 0 $remove ? :
248 1 0 if scalar @$remove
254 1 7 if ($current_plugin->plugin_name eq $plugin_name)
271 0 0 if ($current_plugin->plugin_name eq $remove_name)
285 67 32 unless $self->has_config_obj
288 2 16 if $param =~ /^\+/
289 0 16 unless defined $parameters->{$param}
291 1 15 ref $parameters->{$param} eq 'ARRAY' ? :
305 1 116 unless defined $value
306 113 3 unless $value =~ /[^.]\.[^.]/
308 0 3 if &none(sub {
310 0 3 if ($type eq '$env' and exists $ENV{uc $what}) { }
2 1 elsif ($type eq '$self' and $self->config_obj->$Dist::Iller::Role::HasPlugins::_can($what)) { }