File Coverage

blib/lib/Goo/Thing/pl/ScriptMaker.pm
Criterion Covered Total %
statement 4 6 66.6
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 6 8 75.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2             # -*- Mode: cperl; mode: folding; -*-
3              
4             package Goo::Thing::pl::ScriptMaker;
5              
6             ###############################################################################
7             # Nigel Hamilton
8             #
9             # Copyright Nigel Hamilton 2003
10             # All Rights Reserved
11             #
12             # Author: Nigel Hamilton
13             # Filename: ScriptMaker.pm
14             # Description: Command line utility for making scripts faster
15             #
16             # Date Change
17             # -----------------------------------------------------------------------------
18             # 14/8/2003 Version 1
19             # 02/2/2005 Updated to use the Prompter
20             # 03/2/2005 Added a ProgramMaker - removed tons of cruft.
21             #
22             ###############################################################################
23              
24 1     1   4142 use strict;
  1         2  
  1         32  
25              
26 1     1   435 use Goo::Thing::pm::ProgramMaker;
  0            
  0            
27              
28             our @ISA = qw(Goo::Thing::pm::ProgramMaker);
29              
30              
31             ###############################################################################
32             #
33             # generate - override superclass
34             #
35             ###############################################################################
36              
37             sub generate {
38              
39             my ($this) = @_;
40              
41             $this->SUPER::generate_header();
42            
43             # make sure this loads first
44             $this->SUPER::generate_main();
45            
46             $this->SUPER::generate_methods();
47            
48             }
49            
50              
51             ###############################################################################
52             #
53             # run - interface method
54             #
55             ###############################################################################
56              
57             sub run {
58              
59             my ($this) = @_;
60            
61             $this->generate();
62            
63             }
64              
65             1;
66              
67              
68             __END__
69              
70             =head1 NAME
71              
72             Goo::Thing::pl::ScriptMaker - Command line utility for making scripts faster
73              
74             =head1 SYNOPSIS
75              
76             use Goo::Thing::pl::ScriptMaker;
77              
78             =head1 DESCRIPTION
79              
80              
81              
82             =head1 METHODS
83              
84             =over
85              
86             =item generate
87              
88             override superclass
89              
90             =item run
91              
92             interface method
93              
94              
95             =back
96              
97             =head1 AUTHOR
98              
99             Nigel Hamilton <nigel@turbo10.com>
100              
101             =head1 SEE ALSO
102