Branch Coverage

blib/lib/CGI/Application/Plugin/MessageStack.pm
Criterion Covered Total %
branch 15 94 15.9


line true false branch
163 30 6 if (my $message_array = $session->param('__CAP_MessageStack_Stack')) { }
191 0 0 if ($limiting_params{'-scope'} or $limiting_params{'-classification'}) { }
197 0 0 if (my $class_key = $CGI::Application::Plugin::MessageStack::config{'-classification_param_name'})
199 0 0 if ($$_{'-classification'})
205 0 0 if (my $message_key = $CGI::Application::Plugin::MessageStack::config{'-message_param_name'})
207 0 0 if ($$_{'-message'})
240 0 0 if ($CGI::Application::Plugin::MessageStack::config{'-dont_use_session'}) { }
246 0 0 if ($limiting_params{'-scope'} or $limiting_params{'-classification'}) { }
253 0 0 if ($limiting_params{'-scope'} and $limiting_params{'-classification'}) { }
0 0 elsif ($limiting_params{'-scope'}) { }
0 0 elsif ($limiting_params{'-classification'}) { }
254 0 0 if (!$$message_hashref{'-scope'} || (ref $$message_hashref{'-scope'} && grep({$_ eq $limiting_params{'-scope'};} @{$$message_hashref{'-scope'};}) || !ref($$message_hashref{'-scope'}) && $$message_hashref{'-scope'} eq $limiting_params{'-scope'}) and ($$message_hashref{'-classification'} and $$message_hashref{'-classification'} eq $limiting_params{'-classification'}))
259 0 0 if (not $$message_hashref{'-scope'}) { }
263 0 0 if (ref $$message_hashref{'-scope'}) { }
264 0 0 if (grep {$_ eq $limiting_params{'-scope'};} @{$$message_hashref{'-scope'};})
269 0 0 if ($$message_hashref{'-scope'} eq $limiting_params{'-scope'})
276 0 0 if ($$message_hashref{'-classification'} and $$message_hashref{'-classification'} eq $limiting_params{'-classification'})
282 0 0 if ($match_found)
322 0 0 if ($limiting_params{'-scope'} or $limiting_params{'-classification'}) { }
326 0 0 if ($limiting_params{'-classification'} and $limiting_params{'-scope'}) { }
0 0 elsif ($limiting_params{'-classification'}) { }
0 0 elsif ($limiting_params{'-scope'}) { }
328 0 0 if $$message_hashref{'-classification'} and $$message_hashref{'-classification'} eq $limiting_params{'-classification'} and !$$message_hashref{'-scope'} || (ref $$message_hashref{'-scope'} && grep({$_ eq $limiting_params{'-scope'};} @{$$message_hashref{'-scope'};}) || !ref($$message_hashref{'-scope'}) && $$message_hashref{'-scope'} eq $limiting_params{'-scope'})
333 0 0 if $$message_hashref{'-classification'} and $$message_hashref{'-classification'} eq $limiting_params{'-classification'}
338 0 0 unless $$message_hashref{'-scope'}
339 0 0 if (ref $$message_hashref{'-scope'}) { }
340 0 0 if grep {$_ eq $limiting_params{'-scope'};} @{$$message_hashref{'-scope'};}
342 0 0 if $$message_hashref{'-scope'} eq $limiting_params{'-scope'}
349 0 0 if ($CGI::Application::Plugin::MessageStack::config{'-dont_use_session'}) { }
427 0 5 if ($$limiting_params{'-classification'} and $$limiting_params{'-scope'}) { }
0 5 elsif ($$limiting_params{'-classification'}) { }
5 0 elsif ($$limiting_params{'-scope'}) { }
429 0 0 if not $$message_hashref{'-classification'} or $$message_hashref{'-classification'} ne $$limiting_params{'-classification'}
430 0 0 if (ref $$message_hashref{'-scope'}) { }
431 0 0 unless grep {$_ eq $$limiting_params{'-scope'};} @{$$message_hashref{'-scope'};}
433 0 0 if $$message_hashref{'-scope'} and $$message_hashref{'-scope'} ne $$limiting_params{'-scope'}
437 0 0 if ($for_template) { }
448 0 0 if not $$message_hashref{'-classification'} or $$message_hashref{'-classification'} ne $$limiting_params{'-classification'}
449 0 0 if ($for_template) { }
460 0 1 if (ref $$message_hashref{'-scope'}) { }
461 0 0 unless grep {$_ eq $$limiting_params{'-scope'};} @{$$message_hashref{'-scope'};}
463 0 1 if $$message_hashref{'-scope'} and $$message_hashref{'-scope'} ne $$limiting_params{'-scope'}
465 1 0 if ($for_template) { }
489 1 4 if scalar @$messages
490 0 5 if $CGI::Application::Plugin::MessageStack::config{'-automatic_clearing'}
499 3 39 if ($CGI::Application::Plugin::MessageStack::config{'-dont_use_session'}) { }
508 1 38 if ($@ or not $session_object)