Branch Coverage

blib/lib/CGI/Application/PhotoGallery.pm
Criterion Covered Total %
branch 0 108 0.0


line true false branch
221 0 0 unless defined $self->param('thumb_size')
223 0 0 unless defined $self->param('preview_thumbs')
225 0 0 unless defined $self->param('title')
227 0 0 unless defined $self->param('graphics_lib')
229 0 0 unless defined $self->param('script_name')
234 0 0 unless defined $self->param('photos_dir')
240 0 0 if $self->param('script_name')
259 0 0 if basename($name) eq 'favicon.ico'
261 0 0 if $mime and $mime->mediaType eq 'image'
277 0 0 unless ($$self{'_mime_types'})
296 0 0 unless ($$self{'_gfx_lib'})
315 0 0 unless ($$self{'_cache'})
319 0 0 if defined $self->param('cache_root')
321 0 0 if defined $self->param('cache_namespace')
323 0 0 if defined $self->param('cache_dirumask')
325 0 0 if (defined $self->param('cache_datumask')) { }
362 0 0 unless -e $directory
363 0 0 unless -d $directory
371 0 0 if ($output = $cache->get($key))
373 0 0 if ($cachetime and $cachetime == $lastmod)
375 0 0 if (my $header = $query->http('If-Modified-Since'))
379 0 0 if ($reqmod and $reqmod == $lastmod)
400 0 0 if ($dir ne $directory)
401 0 0 if @files > $limit
427 0 0 $user_dir ? :
455 0 0 unless $photo
463 0 0 if ($data = $cache->get($key))
465 0 0 if (my $header = $query->http('If-Modified-Since'))
470 0 0 if ($reqmod and $reqmod == $lastmod) { }
479 0 0 unless ($data)
508 0 0 unless $photo
513 0 0 if (my $header = $query->http('If-Modified-Since'))
517 0 0 if ($reqmod and $reqmod == $lastmod)
522 0 0 unless open PHOTO, $path
549 0 0 unless $photo
550 0 0 unless -e $path
562 0 0 if $lastdir > $lastmod
564 0 0 if -r $caption_path
565 0 0 if $lastcap > $lastmod
568 0 0 if ($output = $cache->get($key))
570 0 0 if ($cachetime and $cachetime == $lastmod)
572 0 0 if (my $header = $query->http('If-Modified-Since'))
576 0 0 if ($reqmod and $reqmod == $lastmod)
592 0 0 if $@
602 0 0 if ($f ne $photo) { }
608 0 0 if $next
621 0 0 if (defined(my $max_width = $self->param('max_width')))
622 0 0 if ($width > $max_width)
629 0 0 if (defined(my $max_height = $self->param('max_height')))
630 0 0 if ($height > $max_height)
647 0 0 if (-e $caption_path)
648 0 0 unless open CAPTIONS, $caption_path
651 0 0 if ($caption =~ /^\Q$photo\E\t(.+)$/)
682 0 0 if ($error =~ /file not found/i) { }