Branch Coverage

blib/lib/A1z/HTML5/Template.pm
Criterion Covered Total %
branch 4 250 1.6


line true false branch
35 0 0 if ($num1 eq '')
36 0 0 if ($num2 eq '')
87 0 0 if ($num1 eq '')
95 0 0 if $_
111 0 0 if (@_)
119 0 0 if ($ARGV and $ARGV > 0 and scalar @keys > 0) { }
121 0 0 if ($key eq 'utf8') { }
0 0 elsif (not defined $key or $key eq '') { }
151 0 0 if (@_)
159 0 0 if ($args and $args >= 0) { }
193 0 0 if (@_)
251 0 0 if ($args) { }
254 0 0 if ($args >= 0) { }
261 0 0 if ($_ =~ /.js$/) { }
0 0 elsif ($_ =~ /.css$/) { }
300 0 0 if (@_)
308 0 0 if ($ARGV and $ARGV > 0 or scalar @keys > 0) { }
330 0 0 if (@_)
336 0 0 if ($ARGV and $ARGV > 0 or scalar @keys > 0) { }
339 0 0 if ($key) { }
368 0 0 if (@_)
381 0 0 if ($args) { }
384 0 0 if ($args >= 0) { }
456 0 0 if (@_)
479 0 0 if ($args) { }
482 0 0 if ($args >= 0) { }
489 0 0 if ($_ =~ /.js$/) { }
0 0 elsif ($_ =~ /.css$/) { }
531 0 0 if (@_)
537 0 0 if ($ARGV and $ARGV > 0 or scalar @keys > 0) { }
540 0 0 if (@_) { }
567 0 0 if (@_)
573 0 0 if ($ARGV and $ARGV > 0 or scalar @keys > 0) { }
576 0 0 if (@_) { }
603 0 0 if (@_)
623 0 0 if ($ARGV and $ARGV > 0 or scalar @keys > 0) { }
626 0 0 if (@_) { }
661 0 0 if (not defined $in{'content'} or $in{'content'} eq '') { }
687 0 0 if (@_)
693 0 0 if ($ARGV and $ARGV > 0 or scalar @keys > 0) { }
696 0 0 if (@_) { }
725 0 0 if (@_)
730 0 0 if $_ =~ /^vars/
733 0 0 if $_ =~ /^vals/
742 0 0 if ($form_vars[4] and $form_vars[4] =~ /\,/) { }
755 0 0 if ($form_vars[3] and $form_vars[3] =~ /^select/) { }
769 0 0 if (-f $folder_or_file) { }
0 0 elsif (-d $folder_or_file) { }
777 0 0 unless opendir D, "$folder_or_file"
783 0 0 unless $file =~ /[a-zA-Z0-9\-]/
786 0 0 unless -f "$folder_or_file/$file"
789 0 0 if $file =~ /^(\.|\.\.)/
792 0 0 if $file =~ /^\./
800 0 0 if $file
820 0 0 if $_
821 0 0 if $_
1158 1 0 if ($in{'-titleRotatingText'} and $in{'-titleRotatingText'} =~ /\,/) { }
1172 1 0 if ($in{'-cssLinks'}) { }
1174 1 0 if ($in{'-cssLinks'} =~ /\,/)
1179 3 0 if ($_ =~ /\.css$/) { }
1320 0 0 if (-e -f "$file") { }
1323 0 0 unless open FILE, "$file"
1329 0 0 if ($output_format eq 'table') { }
0 0 elsif ($output_format eq 'accordion') { }
0 0 elsif ($output_format eq 'menu') { }
0 0 elsif ($output_format eq 'tabs') { }
0 0 elsif ($output_format eq 'dialog') { }
1356 0 0 if $line
1360 0 0 if ($line =~ /\|/) { }
0 0 elsif ($line =~ /\t+/) { }
0 0 elsif ($line =~ /\s+/) { }
1374 0 0 if ($h1 =~ /^\s+/ or $div =~ /^\s+/) { }
1376 0 0 unless $h1 =~ /^\s+==/ or $div =~ /^\s+==/
1382 0 0 unless $h1 =~ /^==/ or $div =~ /^==/
1416 0 0 if $line
1420 0 0 if ($line)
1425 0 0 if ($line =~ /\|/) { }
0 0 elsif ($line =~ /\t+/) { }
0 0 elsif ($line =~ /\s+/) { }
1442 0 0 if ($output_format eq 'table') { }
0 0 elsif ($output_format eq 'accordion') { }
0 0 elsif ($output_format eq 'menu') { }
0 0 elsif ($output_format eq 'tabs') { }
0 0 elsif ($output_format eq 'dialog') { }
1446 0 0 if ($h1 =~ /^\s+/ or $div =~ /^\s+/) { }
1448 0 0 unless $h1 =~ /^\s+#/ or $div =~ /^\s+#/
1454 0 0 unless $h1 =~ /^#/ or $div =~ /^#/
1464 0 0 if ($h1 =~ /^\s+/ or $div =~ /^\s+/) { }
1466 0 0 unless $h1 =~ /^\s+--/ or $div =~ /^\s+--/
1472 0 0 unless $h1 =~ /^--/ or $div =~ /^--/
1477 0 0 if $line
1487 0 0 if $h1 =~ /^#http/ or $div =~ /^#http/
1491 0 0 if ($h1 =~ /^\s+/ or $div =~ /^\s+/) { }
1493 0 0 unless $h1 =~ /^\s+http/ or $div =~ /^\s+http/
1499 0 0 unless $h1 =~ /^http/ or $div =~ /^http/
1509 0 0 if ($h1 =~ /^\s+/ or $div =~ /^\s+/) { }
1511 0 0 unless $h1 =~ /^\s+==/ or $div =~ /^\s+==/
1517 0 0 unless $h1 =~ /^==/ or $div =~ /^==/
1547 0 0 if ($output_format eq 'table') { }
0 0 elsif ($output_format eq 'accordion') { }
0 0 elsif ($output_format eq 'menu') { }
0 0 elsif ($output_format eq 'tabs') { }
0 0 elsif ($output_format eq 'dialog') { }
1590 0 0 if $line
1592 0 0 if $line
1626 0 0 if (-e -f "$in{'file'}")
1628 0 0 unless open FILE, "$in{'file'}"
1643 0 0 if $_ =~ /^$/
1645 0 0 if $_
1654 0 0 if ($identifiers =~ /^\#/) { }
0 0 elsif ($identifiers =~ /^\-/) { }
0 0 elsif ($identifiers =~ /^\=/) { }
0 0 elsif ($identifiers =~ /^http/) { }
1714 0 0 if ($action eq 'write') { }
0 0 elsif ($action eq 'newItem') { }
1717 0 0 if (-e -f "$in{'file'}") { }
1721 0 0 unless open F, "$in{'file'}"
1725 0 0 unless open BAK, ">$in{'file'},bak.txt"
1735 0 0 unless open DEL, ">$in{'file'}"
1745 0 0 if $_ eq 'action'
1757 0 0 unless open FILE, ">$in{'file'}"
1765 0 0 if (-e -f "$in{'file'},bak.txt" and -e -f "$in{'file'}") { }
1819 0 0 if (-e -d "$in{'images_dir'}" and "$in{'thumbs_dir'}") { }
1821 0 0 unless opendir TH, "$in{'thumbs_dir'}"
1827 0 0 if ($_ and $_ =~ /(.jpg|.gif|.jpeg|.png|.tiff)$/)