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'