Branch Coverage

blib/lib/Nes.pm
Criterion Covered Total %
branch 45 292 15.4


line true false branch
70 74 0 unless $class
121 0 0 if $$self{'CFG'}{'tmp_clear'}
131 0 0 if 1 < rand 100
141 0 0 if length $$self{'tmp_dir'} < 4
144 0 0 if length $$self{'tmp_suffix'} < 4
148 0 0 if ($file =~ /$$self{'tmp_suffix'}$/)
150 0 0 unless $file =~ /tmp/
152 0 0 if time - $last_mod > $$self{'expired'}
165 0 0 unless (-d $$self{'tmp_dir'})
170 0 0 unless -d $dir
171 0 0 unless (-d $dir)
178 0 0 unless open my $fh, '>>', $$self{'file'}
188 0 0 unless -e $$self{'file'}
190 0 0 unless open my $fh, '<', $$self{'file'}
202 0 0 unless -e $$self{'file'}
204 0 0 unless open my $fh, '>', $$self{'file'}
205 0 0 if $data
216 0 0 if $ENV{'HTTP_X_REMOTE_ADDR'} and !$remote || $remote =~ /^(127|192)\./
448 0 0 if $name
457 0 0 if $class
487 0 0 if $cookie =~ /_delete$/
490 0 0 unless $cookie =~ /_delete$/
500 1 0 unless $$self{'c_get'}{$name}
501 0 0 unless $pass
518 0 0 unless $pass
530 0 0 unless $path
533 0 0 if $domain
541 0 0 unless $path
554 2 0 unless $ENV{'HTTP_COOKIE'}
559 0 0 unless $value
560 0 0 if $value eq 'deleted'
615 1 0 unless $$self{'sess'}
619 0 0 if time > $expire
620 0 0 if $session_name ne $$self{'session_prefix'}
631 0 0 unless $pass
647 0 0 unless $$self{'user'}
670 1 0 unless $clength or $ENV{'QUERY_STRING'}
673 0 0 if $$self{'top_container'}{'php_wrapper'} and $clength > $$self{'CFG'}{'tmp_upload'} * 1024 and $$self{'CFG'}{'tmp_upload'}
680 0 0 if $$self{'save_buffer'}
681 0 0 if $$self{'top_container'}{'php_wrapper'}
720 0 0 unless $fh
776 0 0 unless $$self{'CGI'}
778 0 0 if ($ENV{'REQUEST_METHOD'} ne 'GET')
779 0 0 if $$self{'CGI'}->raw_saved(\$buffer, 8192)
788 0 0 unless $$self{'CGI'}
790 0 0 if ($ENV{'REQUEST_METHOD'} ne 'GET')
840 1 0 if $file
858 0 1 if $$self{'file'} =~ /php$/i
905 1 0 if ($this_dir =~ m[^/]) { }
917 1 0 if ($file_path =~ m[^([-\@\w.\\/]+)$])
962 7 31 if ref $$self{'CFG'}{$key} eq 'ARRAY'
963 1 37 if ref $$self{'CFG'}{$key} eq 'HASH'
973 0 0 if $ENV{'HTTP_X_REMOTE_ADDR'} and !$ENV{'REMOTE_ADDR'} || $ENV{'REMOTE_ADDR'} =~ /^(127|192|169|10)\./
1040 0 1 unless $$self{'top_container'}{'max_inter'}--
1071 1 8 if $$self{'souce_types'}{$type} =~ /[\,\s]?${extension}[\,\s]?/i
1074 1 0 if ($$self{'type'} eq 'html') { }
0 0 elsif ($$self{'type'} eq 'nsql') { }
0 0 elsif ($$self{'type'} eq 'php') { }
0 0 elsif ($$self{'type'} eq 'perl') { }
0 0 elsif ($$self{'type'} eq 'txt') { }
0 0 elsif ($$self{'type'} eq 'bash') { }
0 0 elsif ($$self{'type'} eq 'python') { }
0 0 elsif ($$self{'type'} eq 'js') { }
1108 1 0 if (open my $fh, '<', "$$self{'file_name'}") { }
1173 1 0 if $$self{'file_souce'}[0] =~ /{:\s*NES/i or ''
1179 1 0 if ($param[0])
1191 0 1 unless $script
1192 0 1 if $script eq 'none'
1224 0 0 unless ($$self{'content_obj'}{'is_binary'})
1324 0 0 if ($self_file eq $top_file)
1347 0 0 if ($self_file eq $top_file)
1370 0 0 if ($script eq 'none')
1377 0 0 if ($script)
1396 0 0 unless $$self{'top_container'}{'in_inc'}{$script_dir}
1400 0 0 unless ($return)
1403 0 0 if $@ =~ /ModPerl::Util::exit/
1405 0 0 if $@
1406 0 0 unless defined $return
1407 0 0 unless $return
1427 0 0 unless $status
1517 0 0 if @{$$self{'file_script'};}
1526 0 0 if defined $old_fh
1557 0 0 if @{$$self{'file_script'};}
1559 0 0 if ($main::MOD_PERL) { }
1612 0 0 if $$self{'file_name'} eq $$self{'top_container'}{'file'}
1623 0 0 unless $$self{'php_wrapper'}
1626 0 0 if $$self{'php_wrapper'}
1628 0 0 if ($$self{'php_wrapper'} or $main::MOD_PERL)
1639 0 0 if ($main::MOD_PERL) { }
1648 0 0 if ($$self{'php_wrapper'}) { }
1649 0 0 if ($ENV{'REQUEST_METHOD'} ne 'GET')
1650 0 0 if ($$self{'query'}{'save_buffer'}) { }
1669 0 0 if $error
1680 0 0 if ($$self{'php_wrapper'}) { }
1681 0 0 if ($ENV{'REQUEST_METHOD'} ne 'GET')
1682 0 0 if ($$self{'query'}{'save_buffer'}) { }
1705 0 0 if ($$self{'php_wrapper'})
1708 0 0 unless $$self{'is_binary'}
1722 0 0 unless $$self{'TAG_HTTP-headers'}
1752 0 0 if @{$$self{'file_script'};}
1757 0 0 if ($main::MOD_PERL) { }
1863 2 1 if $out
2037 0 3 unless $params
2061 3 0 if $this
2062 3 0 if $this
2064 3 0 unless ($skip_inclusion)
2065 0 3 if ($this =~ /$$self{'pre_start'}/)
2069 0 3 if ($this =~ /$$self{'tag_start'}/)
2087 0 2 if ($tag =~ /^$$self{'tag_expre'}$/) { }
0 2 elsif ($tag =~ /^$$self{'tag_tpl'}$/) { }
0 2 elsif ($tag =~ /^$$self{'tag_sql'}$/) { }
0 2 elsif ($tag =~ /^$$self{'tag_hash'}$/) { }
0 2 elsif ($tag =~ /^$$self{'tag_include'}$/) { }
2 0 elsif ($tag =~ /^$$self{'tag_var'}$/) { }
0 0 elsif ($tag =~ /^$$self{'tag_env'}$/) { }
0 0 elsif ($tag =~ /^$$self{'tag_plugin'}$/) { }
2136 0 2 if $value =~ /^\d*$/
2146 0 0 if ($key =~ /^yes_tag_(.*)/) { }
2149 0 0 if $key =~ /^yes_/i
2154 2 0 unless $$self{'security_options'}{'no_br'}
2156 0 2 if $$self{'security_options'}{'no_sql'}
2157 2 0 if $$self{'security_options'}{'no_nes'}
2158 2 0 if $$self{'security_options'}{'no_html'}
2172 0 1 if !$block =~ /$$self{'tag_start'}\s*$$self{'tag_nes'}/
2212 0 0 if ($tag =~ /^:-:var:-:$/)
2214 0 0 if (defined $$self{'tags'}{$var}) { }
2224 0 0 if ($tag =~ /^:-:env:-:$/)
2226 0 0 if (defined $$self{'top_container'}{'nes_env'}{$var}) { }
2238 0 0 if eval $expre
2252 0 0 unless ($file)
2289 0 0 if ($name_hash =~ /$$self{'tag_field'}/)
2311 0 0 unless $sql =~ /^SELECT/
2318 0 0 if ($sql =~ /$$self{'pre_start'}/)
2333 0 0 if ($$self{'container'}{'type'} eq 'nsql')
2399 0 0 if $var =~ /^q_/
2400 0 0 if $var =~ /^q_/
2418 0 0 if ($tag =~ /^$tag_plugin$/i)
2420 0 0 unless ($handler)
2549 0 2 unless $value
2557 0 2 if (not $tags) { }
2570 0 2 unless $value
2602 0 0 if ($main::MOD_PERL2)
2610 0 0 if ($main::MOD_PERL1)
2623 0 0 if $ref eq 'SCALAR' or $ref eq 'REF'
2624 0 0 if $ref eq 'HASH'
2625 0 0 if $ref eq 'ARRAY'