File Coverage

lib/App/Followme/CreateGallery.pm
Criterion Covered Total %
statement 25 25 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod 1 1 100.0
total 35 35 100.0


line stmt bran cond sub pod time code
1             package App::Followme::CreateGallery;
2 2     2   688 use 5.008005;
  2         20  
3 2     2   12 use strict;
  2         4  
  2         47  
4 2     2   12 use warnings;
  2         5  
  2         85  
5              
6 2     2   13 use lib '../..';
  2         4  
  2         17  
7              
8 2     2   325 use base qw(App::Followme::CreateIndex);
  2         4  
  2         639  
9              
10 2     2   16 use IO::File;
  2         4  
  2         303  
11 2     2   13 use File::Spec::Functions qw(abs2rel rel2abs splitdir catfile);
  2         4  
  2         102  
12 2     2   11 use App::Followme::FIO;
  2         4  
  2         310  
13              
14             our $VERSION = "2.01";
15              
16             #----------------------------------------------------------------------
17             # Read the default parameter values
18              
19             sub parameters {
20 12     12 1 25 my ($pkg) = @_;
21              
22             return (
23 12         38 template_file => 'create_gallery.htm',
24             data_pkg => 'App::Followme::JpegData',
25             );
26             }
27              
28             1;
29             __END__
30              
31             =encoding utf-8
32              
33             =head1 NAME
34              
35             App::Followme::CreateGallery - Create a photo gallery page
36              
37             =head1 SYNOPSIS
38              
39             use App::Followme::CreateGallery;
40             my $gallery = App::Followme::CreateGallery->new($configuration);
41             $gallery->run($directory);
42              
43             =head1 DESCRIPTION
44              
45             This package builds an index for a directory which serves as a photo gallery.
46             The variables described below are substituted into a template to produce the
47             gallery.
48              
49             =head1 CONFIGURATION
50              
51             The following fields in the configuration file are used:
52              
53             =over 4
54              
55             =item template_file
56              
57             The name of the template used to produce the photo gallery. The default is
58             'create_gallery.htm'.
59              
60             =item data_pkg
61              
62             The name of the package used to retrieve data from the photos. The default value
63             is 'App::Followme::JpegData'.
64              
65             =back
66              
67             =head1 LICENSE
68              
69             Copyright (C) Bernie Simon.
70              
71             This library is free software; you can redistribute it and/or modify
72             it under the same terms as Perl itself.
73              
74             =head1 AUTHOR
75              
76             Bernie Simon E<lt>bernie.simon@gmail.comE<gt>
77              
78             =cut