File Coverage

blib/lib/Goo/Thing/pm/Maker.pm
Criterion Covered Total %
statement 9 13 69.2
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 20 65.0


line stmt bran cond sub pod time code
1             package Goo::Thing::pm::Maker;
2              
3             ###############################################################################
4             # Nigel Hamilton
5             #
6             # Copyright Nigel Hamilton 2003
7             # All Rights Reserved
8             #
9             # Author: Nigel Hamilton
10             # Filename: Goo::Thing::pm::Maker.pm
11             # Description: Command line utility for making module skeletons faster
12             #
13             # Date Change
14             # -----------------------------------------------------------------------------
15             # 14/8/2003 Version 1
16             # 02/2/2005 Added a Prompter for consistent text highlighting and questions
17             # 13/6/2005 Added a run() method for working with the new meta description
18             # provided by "The Goo"
19             # 16/10/2005 Inheritance was getting in the way - needed to make this
20             # simple - like with profiles
21             # This has been seriously refactored - new version coming soon
22             #
23             ###############################################################################
24              
25 1     1   2928 use strict;
  1         3  
  1         31  
26              
27 1     1   505 use Goo::Thing::pm::Perl6ModuleMaker;
  1         3  
  1         20  
28 1     1   451 use Goo::Thing::pm::Perl5ModuleMaker;
  1         3  
  1         85  
29              
30              
31             ###############################################################################
32             #
33             # run - interface method
34             #
35             ###############################################################################
36              
37             sub run {
38              
39 0     0 1   my ($this, $thing) = @_;
40              
41 0 0         if (Goo::Thing::TypeChecker::is_perl6($thing)) {
42 0           Goo::Thing::pm::Perl6ModuleMaker->new()->run($thing);
43             } else {
44 0           Goo::Thing::pm::Perl5ModuleMaker->new()->run($thing);
45             }
46              
47             }
48              
49             1;
50              
51              
52             __END__
53              
54             =head1 NAME
55              
56             Goo::Thing::pm::Maker - Command line utility for making module skeletons faster
57              
58             =head1 SYNOPSIS
59              
60             use Goo::Thing::pm::Maker;
61              
62             =head1 DESCRIPTION
63              
64              
65              
66             =head1 METHODS
67              
68             =over
69              
70             =item run
71              
72             Delegating making Perl modules to either Goo::Thing::pm::Perl6ModuleMaker or
73             Goo::Thing::pm::Perl5ModuleMaker.
74              
75             =back
76              
77             =head1 AUTHOR
78              
79             Nigel Hamilton <nigel@trexy.com>
80              
81             =head1 SEE ALSO
82