Branch Coverage

blib/lib/WWW/Mechanize/Shell.pm
Criterion Covered Total %
branch 164 262 62.6


line true false branch
112 83 0 unless ($self->agent)
126 82 1 exists $args{'warnings'} ? :
0 84 exists $args{'watchfiles'} ? :
135 81 64 if $self->option('dumprequests')
137 1 143 if $self->option('dumpresponses')
142 1 0 unless $_[1]
148 83 0 if $self->agent->can('env_proxy')
155 80 3 if (exists $args{'rcfile'}) { }
158 0 3 $^O =~ /win32/i ? :
159 0 3 if -f "$userhome/.mechanizerc"
162 1 82 if exists $args{'cookiefile'}
163 1 82 if defined $sourcefile
168 83 0 if ($self->option('watchfiles'))
170 17249 0 if -f $_ and -r $_
175 83 0 if $@
210 2 1 unless open F, "< $filename"
215 0 2 if $self->{'options'}{'verbose'}
235 1 85 if $self->option('warnings')
250 0 32 if ($ENV{'PAGER'} and -t STDOUT) { }
257 0 0 if ($^O eq 'VMS') { }
258 0 0 if system("$pager $filename") == 0
260 0 0 if system(qq[$pager "$filename"]) == 0
263 0 0 unless unlink $filename
274 667 3 if (exists $self->{'options'}{$option}) { }
276 73 594 if (scalar @_ == 3)
287 0 0 if ($0 ne '-e')
296 0 338 if ($self->{'files'} and $self->{'files'}->changed)
298 0 0 if $self->option('autorestart')
314 2 0 unless $self->agent->res
324 0 0 if $token->is_start_tag
336 0 1 if ($self->agent->response) { }
345 1 0 if (ref $_[1] eq 'ARRAY') { }
354 11 51 if ($arg =~ m[^/(.*)/([imsx]*)$])
377 2 0 if $result = $link->$_
449 4 32 if (defined $filename) { }
451 0 4 unless open my $f, '>', $filename
457 0 4 if $@
468 13 1 if ($command =~ /^\s*#/) { }
491 1 0 if ($@)
513 0 0 if ($@)
549 71 1 if $_[0]->agent->forms and scalar @{$_[0]->agent->forms;}
569 2 57 if ($@) { }
570 2 0 if $@
578 7 51 if $self->option('autosync')
599 1 2 unless (defined $user_link)
612 2 0 if (ref $user_link) { }
615 3 17 defined $_->text && $_->text =~ /$re/ || defined $_->url && $_->url =~ /$re/ ? :
616 1 1 if (@links == 0)
626 1 1 if (@links)
653 0 3 if $@
675 2 30 if ($filename) { }
698 2 3 if (not defined $title) { }
1 2 elsif ($title eq '') { }
729 40 286 if ($token->is_start_tag($wanted))
734 40 0 if $tag =~ /(\d)/
745 37 3 if ($token and $token->is_text)
747 8 29 unless ($text =~ /\S/)
785 2 0 if (scalar @_ == 2) { }
861 0 1 if (@forms) { }
885 1 3 unless ($self->agent->current_form)
890 3 0 if ($name) { }
893 2 1 if ($name =~ /^\d+$/) { }
904 0 3 if $@
909 0 0 if (@forms) { }
929 0 1 if ($form) { }
932 0 1 if $self->option('warnings')
987 0 7 if $@
1013 0 2 if $@
1035 0 2 if $@
1040 1 1 if (scalar @values) { }
1061 1 1 if (scalar @values) { }
1080 1 21 if $self->option('autosync')
1082 0 22 if $@
1111 2 1 if $self->option('autosync')
1114 0 3 if $@
1137 7 4 ref $link ? :
1138 0 11 unless (defined $link)
1143 8 3 if ($link =~ /\D/)
1144 7 1 if ref $link
1148 7 63 defined $t && $t =~ /$re/ ? :
1149 1 9 defined $t && $t eq $link ? :
7 1 defined $re ? :
1150 0 8 if (@links > 1) { }
0 8 elsif (@links == 0) { }
1159 0 8 if ($possible_links[$count]->url =~ /^javascript:(.*)/i)
1166 11 0 if (defined $link)
1169 7 1 ref $user_link ? :
3 8 $user_link =~ /^\d+$/ ? :
1181 1 10 if ($self->option('autosync'))
1186 0 11 if $@
1194 0 1 if $@
1209 1 1 if $self->option('autosync')
1212 0 2 if $@
1229 1 2 if $self->option('autosync')
1232 0 3 if $@
1275 1 1 if ($option and exists $self->{'options'}{$option}) { }
1276 1 0 if ($option and defined $value) { }
1282 0 1 if $option
1336 0 0 if (@_)
1357 14 0 if ($form) { }
1364 0 14 if $@
1366 23 1 defined $_->[1] ? :
1390 3 0 if (scalar @_ == 2) { }
1392 0 3 unless defined $password
1434 0 0 if $HTML::TableExtract::VERSION < 2
1459 0 0 if $@
1488 0 0 if $HTML::TableExtract::VERSION < 2
1497 0 0 if (grep {/\S/;} @$row)
1503 2 0 if $@
1560 0 49 if $class eq 'Ask'
1562 49 0 if ($class) { }
1565 2 47 if (ref $name) { }
1575 0 49 if $@
1607 1 62 if (not $code =~ /^eval\s+(.*)$/ms) { }
1614 0 62 if (my $err = $@)
1640 3 1 if ($file) { }
1642 2 1 if ($@)
1669 7 3 defined ${"${_}::VERSION";} ? :
1685 1 0 if ($timeout) { }
1687 0 1 if ($@)
1708 0 1 if ($self->agent->content) { }
1710 0 0 if ($@)
1732 0 0 if (defined $referrer) { }
1734 0 0 if ($@)
1788 3 62 if (ref $code) { }
1791 3 0 if ($d->can('ambient_pragmas'))
1824 0 1 if (@ARGV) { }
1846 0 83 unless $self->{'shell'}
1854 0 32 if ($input->possible_values)
1861 0 32 unless ($input->type =~ /^(submit|hidden)$/)
1864 0 0 if $value eq '' and $input->type eq 'checkbox'