Branch Coverage

blib/lib/CGI/Path.pm
Criterion Covered Total %
branch 0 274 0.0


line true false branch
78 0 0 if ($$self{'use_session'})
83 0 0 unless ($$self{'no_new_helper'})
100 0 0 unless ($$self{'cookies'})
129 0 0 unless ($$self{'session'})
133 0 0 if ($@)
134 0 0 if ($@ =~ /Object does not exist/i)
140 0 0 if $@
142 0 0 if ($opt)
144 0 0 if ($opt_ref) { }
145 0 0 if ($opt_ref eq 'HASH')
169 0 0 if (exists $ENV{'CONTENT_TYPED'}) { }
190 0 0 ref $_[0] eq 'HASH' ? :
192 0 0 if (ref $PASSED_ARGS{$passed_arg} and ref $PASSED_ARGS{$passed_arg} eq 'HASH') { }
209 0 0 if ($my_module)
245 0 0 if ($do_dash_e_check)
250 0 0 if ($exists)
255 0 0 if ($@)
265 0 0 if ($sub_ref)
275 0 0 unless grep {$_ eq $ref;} @{$$self{'WASA'};}
311 0 0 if (not $$self{'keep_no_form_session'} || scalar keys %{$self->this_form;} and scalar keys %{$self->session;})
321 0 0 unless ($self->session->{'_begin_time'})
326 0 0 if ($ENV{'HTTP_REFERER'} and $ENV{'SCRIPT_NAME'} and not $ENV{'HTTP_REFERER'} =~ /$ENV{'SCRIPT_NAME'}/)
343 0 0 if (keys %{$self->this_form;})
352 0 0 if ($self->cookies->{$cookie_name})
366 0 0 if grep {$next_step eq $_;} @{$$self{'path_array'};}
391 0 0 if exists $self->session->{$_}
396 0 0 if exists $self->session->{$_}
401 0 0 if ($self->form->{'session_wipe'})
413 0 0 unless $form{$_} =~ /\0/
425 0 0 if grep {$_ eq $key;} @{$$self{'not_a_real_key'};}
434 0 0 if $#_ != -1
443 0 0 if ($$self{'allow_history'} and $self->form->{$$self{'history_key'}})
444 0 0 unless ($self->session->{$$self{'history_key'}})
461 0 0 unless $self->allow_history
484 0 0 if ($self->allow_history)
491 0 0 if ($self->allow_history)
499 0 0 if ($self->allow_history)
508 0 0 if ($self->allow_history)
516 0 0 if ($self->allow_history)
534 0 0 $$form{'_printed_pages'} && $$form{'_printed_pages'}[-1] ? :
539 0 0 if $sub_ref = $self->can('pre_navigate_walk')
547 0 0 if $$self{'stop_navigate'}
567 0 0 if ($sub_ref = $self->can($method_pre)) { }
574 0 0 unless ($return_val)
595 0 0 if ($self->info_exists($step)) { }
624 0 0 unless ($info_exists and $validated)
626 0 0 if ($sub_ref = $self->can($method_fill)) { }
652 0 0 if (not $info_exists or $$self{'magic_fill_regardless'})
654 0 0 if ($self->allow_magic_fill)
656 0 0 if (scalar keys %{$magic_fill_ref;})
671 0 0 if ($sub_ref = $self->can($method_form)) { }
692 0 0 if ($sub_ref = $self->can($method_err)) { }
713 0 0 if ($sub_ref = $self->can($method_step)) { }
717 0 0 if ($potential_page_to_print and not ref $potential_page_to_print and not $potential_page_to_print =~ /^\d+$/)
760 0 0 if ($sub_ref = $self->can($method_post))
762 0 0 if ($return_val)
768 0 0 if $return_val
796 0 0 if ($self->fresh_form_info_exists($step))
801 0 0 if ($self->page_has_displayed($page_to_check))
806 0 0 unless $$val_hash{$val_key} and ref $$val_hash{$val_key} and ref $$val_hash{$val_key} eq 'HASH'
807 0 0 if ($$val_hash{$val_key}{'WipeOnBack'} and not exists $self->this_form->{$val_key} and exists $self->form->{$val_key})
813 0 0 if ($cleared)
817 0 0 if ($self->form->{'_printed_pages'}[$i] eq $page_to_check)
827 0 0 if ($save_validated)
840 0 0 if $after
841 0 0 if ($path_step eq $step)
868 0 0 unless keys %{$unvalidated_keys;}
870 0 0 if ($$mini_validated{$step})
879 0 0 if ($$val_hash{$_} and $$unvalidated_keys{$_} and $$form{$_} and not $$val_hash{$_ . '_error'})
884 0 0 if (keys %$to_save)
919 0 0 if ($step_hash and $$step_hash{'validate_ref'}) { }
0 0 elsif ($$self{'validate_refs'}) { }
924 0 0 if ($$self{'validate_refs'}{$self->my_content} and $$self{'validate_refs'}{$self->my_content}{$step}) { }
0 0 elsif ($$self{'validate_refs'}{$step}) { }
932 0 0 unless ($return)
946 0 0 -e $val_filename ? :
957 0 0 if ($@)
966 0 0 unless $base_page =~ m[^(conf|content|images|template)/]
967 0 0 unless $base_page =~ /\.\w+$/
979 0 0 if (-e $this_path)
991 0 0 if ($self->non_empty_val_ref($step) and $self->info_exists($step, $self->this_form))
1009 0 0 if ($ref)
1011 0 0 if ($ref_ref)
1012 0 0 if ($ref_ref eq 'HASH') { }
0 0 elsif ($ref_ref eq 'ARRAY') { }
1013 0 0 scalar keys %{$ref;} ? :
1015 0 0 @{$ref;} ? :
1031 0 0 unless ($self->non_empty_ref($val_ref))
1040 0 0 if (exists $$form{$_})
1092 0 0 unless ($self->page_was_just_printed($this_step) and $self->fresh_form_info_exists($this_step))
1098 0 0 if ($sub_ref = $self->can($method_pre_val)) { }
1114 0 0 if ($$validated{$this_step}) { }
1128 0 0 if ($validate_proper_return) { }
1147 0 0 if ($return)
1149 0 0 if ($sub_ref = $self->can($method_post_val))
1160 0 0 unless ($return)
1165 0 0 if ($change)
1187 0 0 if ($errobj)
1189 0 0 if ($show_errors) { }
1202 0 0 if (not ref $name) { }
1227 0 0 unless (ref $errors and ref $errors eq 'HASH')
1235 0 0 unless $$errors{$key}
1257 0 0 if $smart_merge and exists $self->fill->{$_}
1278 0 0 unless ref $out
1291 0 0 if ($$self{'htm'} and $$self{'htm'}{$step}) { }
0 0 elsif (not -e $self->get_full_path($self->step_with_extension($step, 'htm'))) { }
1293 0 0 unless $self->template->process(\$content, $self->uber_form, \$out)
1298 0 0 unless $out
1304 0 0 $out ? :
1310 0 0 unless $content and ref $content and ref $content eq 'SCALAR'
1312 0 0 if ($$self{'uber_form'}{'fill'})
1326 0 0 $$self{'allow_magic_fill'} ? :
1343 0 0 if ($$self{'allow_magic_micro'})
1358 0 0 if (open FILE, $filename)
1367 0 0 if $line =~ /^\s*#/
1386 0 0 unless $hash and ref $hash and ref $hash eq 'HASH'
1388 0 0 if /^_/
1396 0 0 if /^_/
1403 0 0 if /^_/
1417 0 0 unless (defined $out)
1422 0 0 unless $self->template->process($step_filename, $form, $out)
1425 0 0 ref $out ? :
1434 0 0 $step =~ /\.\w+$/ ? :
1440 0 0 unless ($$self{'template'})
1452 0 0 unless ($step and $$printed_mail[-1] and $step eq $$printed_mail[-1])
1464 0 0 unless ($step and $$printed_pages[-1] and $step eq $$printed_pages[-1])
1495 0 0 unless $validate_ref
1547 0 0 unless defined $values
1548 0 0 if (ref $values eq 'ARRAY')
1556 0 0 ref $arg ? :
1558 0 0 if (ref $ref ne 'SCALAR')
1563 0 0 if (defined $$ref and length $$ref)
1568 0 0 $return ? :
1574 0 0 unless ($ENV{'CONTENT_TYPED'})
1575 0 0 if ($step and $step =~ /\.xml/) { }
1588 0 0 if (exists $ENV{'CONTENT_TYPED'}) { }
1592 0 0 if $referer