File Coverage

blib/lib/App/Report/Generator.pm
Criterion Covered Total %
statement 9 15 60.0
branch 0 4 0.0
condition n/a
subroutine 3 4 75.0
pod n/a
total 12 23 52.1


line stmt bran cond sub pod time code
1             package App::Report::Generator;
2              
3 2     2   59462 use warnings;
  2         5  
  2         55  
4 2     2   9 use strict;
  2         4  
  2         100  
5              
6             =head1 NAME
7              
8             App::Report::Generator - Command line tool around Report::Controller
9              
10             =cut
11              
12             our $VERSION = '0.002';
13              
14 2     2   2709 use App::Cmd::Setup-app;
  2         130419  
  2         18  
15              
16             =head1 SYNOPSIS
17              
18             Given a configuration file C, invoking App::Report::Controller
19             with:
20              
21             $ genreport daily
22              
23             =head1 DESCRIPTION
24              
25             This module provides a command line tool around Report::Controller.
26              
27             =cut
28              
29             sub _prepare_command
30             {
31 0     0     my ( $self, $command, $opt, @args ) = @_;
32 0 0         if ( my $plugin = $self->plugin_for($command) )
33             {
34 0           my ( $cmd, $opt, @args ) = $plugin->prepare( $self, @args );
35 0 0         $cmd->can('set_action')
36             and $cmd->set_action($command)
37             ; # when a command class can support multiple commands, we should tell the chosen
38 0           return ( $cmd, $opt, @args );
39             }
40             else
41             {
42 0           return $self->_bad_command( $command, $opt, @args );
43             }
44             }
45              
46             =head1 AUTHOR
47              
48             Jens Rehsack, C<< >>
49              
50             =head1 BUGS
51              
52             Please report any bugs or feature requests to
53             C, or through the web interface
54             at L.
55             I will be notified, and then you'll automatically be notified of progress
56             on your bug as I make changes.
57              
58             =head1 SUPPORT
59              
60             You can find documentation for this module with the perldoc command.
61              
62             perldoc App::Report::Generator
63              
64             You can also look for information at:
65              
66             =over 4
67              
68             =item * RT: CPAN's request tracker
69              
70             L
71              
72             =item * AnnoCPAN: Annotated CPAN documentation
73              
74             L
75              
76             =item * CPAN Ratings
77              
78             L
79              
80             =item * Search CPAN
81              
82             L
83              
84             =back
85              
86             =head1 LICENSE AND COPYRIGHT
87              
88             Copyright 2010 Jens Rehsack.
89              
90             This program is free software; you can redistribute it and/or modify it
91             under the terms of either: the GNU General Public License as published
92             by the Free Software Foundation; or the Artistic License.
93              
94             See http://dev.perl.org/licenses/ for more information.
95              
96             =cut
97              
98             1; # End of App::Report::Generator