File Coverage

lib/App/Followme/CreateGallery.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 23 23 100.0


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