File Coverage

blib/lib/Net/Flickr/Simile.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             # $Id: Simile.pm,v 1.5 2007/09/03 17:29:23 asc Exp $
2              
3 1     1   1417 use strict;
  1         3  
  1         58  
4              
5             package Net::Flickr::Simile::Exhibit;
6 1     1   6 use base qw (Net::Flickr::API);
  1         1  
  1         814  
7              
8             $Net::Flickr::Simile::VERSION = '0.1';
9              
10             =head1 NAME
11              
12             Net::Flickr::Simile - base class for Net::Flickr::Simile packages
13              
14             =head1 SYNOPSIS
15              
16             There is no synopsis.
17              
18             There is only Net::Flickr::Simile::*.pm
19              
20             =head2 Net::Flickr::Simile::Exhibit
21              
22             use Getopt::Std;
23             use Config::Simple;
24             use Net::Flickr::Simile::Exhibit;
25              
26             my %opts = ();
27             getopts('c:j:h:t:', \%opts);
28              
29             my $cfg = Config::Simple->new($opts{'c'});
30              
31             my %args = ('exhibit_json' => $opts{'j'},
32             'exhibit_html' => $opts{'h'},
33             'tags' => $opts{'t'});
34              
35             my $fl = Net::Flickr::Simile::Exhibit->new($cfg);
36             $fl->search(\%args);
37            
38             # So then you might do :
39             # perl ./myscript -c /my/flickr.cfg -h ./mystuff.html -j ./mystuff.js -t kittens
40              
41             =head1 DESCRIPTION
42              
43             Base class for Net::Flickr::Simile packages
44              
45             =head1 VERSION
46              
47             0.1
48              
49             =head1 AUTHOR
50              
51             Aaron Straup Cope <ascope@cpan.org>
52              
53             =head1 EXAMPLES
54              
55             L
56              
57             L
58              
59             =head1 SEE ALSO
60              
61             L
62              
63             L
64              
65             L
66              
67             =head1 BUGS
68              
69             Please report all bugs via http://rt.cpan.org/
70              
71             =head1 LICENSE
72              
73             Copyright (c) 2007 Aaron Straup Cope. All Rights Reserved.
74              
75             This is free software. You may redistribute it and/or
76             modify it under the same terms as Perl itself.
77              
78             =cut
79              
80             return 1;