Branch Coverage

blib/lib/HTML/KhatGallery/Core.pm
Criterion Covered Total %
branch 0 200 0.0


line true false branch
184 0 0 if $self->{'verbose'}
232 0 0 unless (defined $self->{'top_dir'})
240 0 0 unless (defined $self->{'top_out_dir'})
248 0 0 if (defined $self->{'top_url'}) { }
263 0 0 unless (defined $self->{'dir_actions'})
279 0 0 unless (defined $self->{'clean_actions'})
291 0 0 unless (defined $self->{'image_actions'})
300 0 0 unless (defined $self->{'image_match'})
308 0 0 unless (defined $self->{'page_template'})
350 0 0 $self->{'clean'} ? :
354 0 0 if $state{'stop'}
393 0 0 if $images_state{'stop'}
428 0 0 if ($dir_state->{'dir'}) { }
461 0 0 unless (-f $captions_file)
466 0 0 if (-f $captions_file)
484 0 0 unless opendir $dh, $dir_state->{'abs_dir'}
490 0 0 if ($fn =~ /^\./ or $fn eq $self->{'thumbdir'}) { }
0 0 elsif (-d $abs_fn) { }
0 0 elsif ($fn =~ /\.html$/) { }
524 0 0 if (-d $dir_state->{'abs_out_dir'})
527 0 0 unless opendir $dh, $dir_state->{'abs_out_dir'}
531 0 0 if ($fn =~ /^\./ or $fn eq $self->{'thumbdir'}) { }
0 0 elsif ($fn =~ /index.*\.html$/) { }
557 0 0 if ($self->{'image_match'} and @{$dir_state->{'files'};})
577 0 0 if (@{$dir_state->{'files'};})
594 0 0 if ($self->{'dir_match'} and @{$dir_state->{'subdirs'};})
614 0 0 if (@{$dir_state->{'subdirs'};})
635 0 0 if ($pages == 0 and @{$dir_state->{'subdirs'};})
642 0 0 unless (-d $dir_state->{'abs_out_dir'})
656 0 0 if ($self->{'force_html'} or $dir_state->{'redo_html'})
665 0 0 if ($self->{'verbose'})
671 0 0 unless (-f $first_index)
683 0 0 if (-f $ifile)
691 0 0 if (@{$dir_state->{'files'};})
696 0 0 if $last > $num_files
726 0 0 unless open $fh, ">", $ifile
746 0 0 unless -d $dir
766 0 0 if ($name =~ s/\.html$//) { }
0 0 elsif ($name =~ /(.+)\.jpg$/i) { }
771 0 0 unless exists $pics_hash{$name}
780 0 0 unless exists $pics_hash{$name}
784 0 0 if ($remove)
785 0 0 if $self->{'verbose'}
787 0 0 unless unlink $fullname
819 0 0 if ($dir_state->{'dir'})
823 0 0 if $self->{'verbose'}
874 0 0 unless ($self->need_to_generate_image($dir_state, $img_state, "check_image", $thumb_file))
880 0 0 unless (-d $dir_state->{'abs_thumbdir'})
887 0 0 unless ($x and $y)
901 0 0 if ($img_state->{'cur_img'} =~ /\.gif$/) { }
910 0 0 unless system($command) == 0
929 0 0 if (-f $img_page_file and not $self->{'force_html'} and not $dir_state->{'redo_html'})
936 0 0 unless (-d $dir_state->{'abs_thumbdir'})
962 0 0 unless open $fh, ">", $img_page_file
1017 0 0 if (not $uplink and $page > 1) { }
1031 0 0 if ($uplinks{$dn}) { }
1048 0 0 if (exists $dir_state->{'captions'})
1051 0 0 if (exists $dir_state->{'captions'}{$index_caption} and defined $dir_state->{'captions'}{$index_caption})
1078 0 0 if ($dir_state->{'pages'} > 1)
1083 0 0 if ($page > 1)
1091 0 0 if ($dir_state->{'pages'} > 2)
1095 0 0 if ($page == $i) { }
1108 0 0 if ($page + 1 <= $dir_state->{'pages'})
1155 0 0 if (@{$dir_state->{'subdirs'};})
1190 0 0 if (@{$args{'images'};})
1233 0 0 if $page > 1
1305 0 0 if ($page == 1) { }
0 0 elsif ($dir_state->{'pages'} > 9) { }
1318 0 0 if ($args{'get_filename'}) { }
1356 0 0 if ($args{'type'} eq 'file') { }
0 0 elsif ($args{'type'} eq 'parent') { }
0 0 elsif ($args{'type'} eq 'sibling') { }
0 0 elsif ($args{'type'} eq 'pretty') { }
1406 0 0 if ($args{'type'} eq 'file') { }
0 0 elsif ($args{'type'} eq 'parent') { }
0 0 elsif ($args{'type'} eq 'sibling') { }
1442 0 0 if (exists $dir_state->{'captions'})
1444 0 0 if (exists $dir_state->{'captions'}{$image} and defined $dir_state->{'captions'}{$image})
1450 0 0 if ($img_state and defined $self->{'meta'} and @{$self->{'meta'};})
1457 0 0 if (exists $img_state->{'info'}{$field} and defined $img_state->{'info'}{$field} and $img_state->{'info'}{$field})
1486 0 0 if (not $template =~ /\n/ and -r $template)
1491 0 0 unless open $fh, $template
1534 0 0 if ($uplinks{$dn}) { }
1604 0 0 if ($dir_state->{'files'} > 1)
1612 0 0 if ($img_num > 0) { }
1632 0 0 if ($args{'use_thumb'})
1640 0 0 if ($img_num + 1 < @{$img_state->{'images'};}) { }
1659 0 0 if ($args{'use_thumb'})
1686 0 0 if ($self->{'top_dir'} ne $self->{'top_out_dir'})
1762 0 0 if (not -f $args{'check_image'} or $self->{'force_images'})
1785 0 0 unless (-d $dir)
1787 0 0 @pics ? :
1810 0 0 if ($name =~ s/\.html$//) { }
0 0 elsif ($name =~ /(.+)\.jpg$/i) { }
1814 0 0 if (exists $pic_has_tn{$name}) { }
1822 0 0 if $self->{'verbose'}
1832 0 0 if (exists $pic_has_tn{$name}) { }
1840 0 0 if $self->{'verbose'}
1849 0 0 unless ($tn_exists)
1891 0 0 if ($level <= $self->{'debug_level'})