File Coverage

blib/lib/Goo/Thing/pm/Perl6Adder.pm
Criterion Covered Total %
statement 18 20 90.0
branch n/a
condition n/a
subroutine 6 7 85.7
pod 1 1 100.0
total 25 28 89.2


line stmt bran cond sub pod time code
1             package Goo::Thing::pm::Perl6Adder;
2              
3             ###############################################################################
4             # Nigel Hamilton
5             #
6             # Copyright Nigel Hamilton 2005
7             # All Rights Reserved
8             #
9             # Author: Nigel Hamilton
10             # Filename: Perl6Adder.pm
11             # Description: Add stuff to a program
12             #
13             # Date Change
14             # ----------------------------------------------------------------------------
15             # 01/08/05 Factored out of ProgramEditor as part of the new Goo
16             # 09/08/2005 This is the first change that has been automatically added.
17             # 09/08/2005 Added the function that enables me to added changes like this. We
18             # also need to test the line wrapping. Does it do a good job of
19             # retaining the columns?
20             # 09/08/2005 I really like the way it handles automated dates - cool!
21             #
22             ##############################################################################
23              
24 1     1   3845 use strict;
  1         3  
  1         29  
25              
26 1     1   5 use Goo::Object;
  1         2  
  1         19  
27 1     1   4 use Goo::Prompter;
  1         2  
  1         16  
28 1     1   528 use Goo::Thing::pm::PerlCoder;
  1         4  
  1         27  
29 1     1   602 use Goo::Thing::pm::MethodMaker;
  1         4  
  1         30  
30              
31 1     1   7 use base qw(Goo::Object);
  1         2  
  1         151  
32              
33              
34             ###############################################################################
35             #
36             # run - keep adding a thing to the program
37             #
38             ###############################################################################
39              
40             sub run {
41              
42 0     0 1   my ($this, $thing, $option) = @_;
43              
44 0           Goo::Prompter::notify("Perl6Adder not implemented yet.");
45              
46             }
47              
48              
49             1;
50              
51              
52             __END__
53              
54             =head1 NAME
55              
56             Goo::Thing::pm::Perl6Adder - Add stuff to a Perl6 program
57              
58             =head1 SYNOPSIS
59              
60             use Goo::Thing::pm::Perl6Adder;
61              
62             =head1 DESCRIPTION
63              
64              
65              
66             =head1 METHODS
67              
68             =over
69              
70             =item run
71              
72             Stub method. Implement later.
73              
74             =back
75              
76             =head1 AUTHOR
77              
78             Nigel Hamilton <nigel@trexy.com>
79              
80             =head1 SEE ALSO
81