File Coverage

blib/lib/Goo/Header.pm
Criterion Covered Total %
statement 6 10 60.0
branch n/a
condition n/a
subroutine 2 3 66.6
pod 1 1 100.0
total 9 14 64.2


line stmt bran cond sub pod time code
1             package Goo::Header;
2              
3             ###############################################################################
4             # Nigel Hamilton
5             #
6             # Copyright Nigel Hamilton 2005
7             # All Rights Reserved
8             #
9             # Author: Nigel Hamilton
10             # Filename: Goo::Header.pm
11             # Description: Show a consistent style of text header for the GOO
12             #
13             # Date Change
14             # -----------------------------------------------------------------------------
15             # 10/10/2005 Added method: showDetailedHeader
16             #
17             ###############################################################################
18              
19 1     1   7 use strict;
  1         3  
  1         32  
20 1     1   6 use Goo::Prompter;
  1         2  
  1         111  
21              
22              
23             ###############################################################################
24             #
25             # show - show a the header in detail
26             #
27             ###############################################################################
28              
29             sub show {
30              
31 0     0 1   my ($action, $filename, $location) = @_;
32              
33 0           Goo::Prompter::clear();
34 0           Goo::Prompter::say("");
35 0           Goo::Prompter::yell("The Goo - $action - $filename [$location]");
36              
37             }
38              
39             1;
40              
41              
42             __END__
43              
44             =head1 NAME
45              
46             Goo::Header - Show a consistent style of text header for The Goo
47              
48             =head1 SYNOPSIS
49              
50             use Goo::Header;
51              
52             =head1 DESCRIPTION
53              
54              
55              
56             =head1 METHODS
57              
58             =over
59              
60             =item show
61              
62             show a consistent header at the top of the screen
63              
64             =back
65              
66             =head1 AUTHOR
67              
68             Nigel Hamilton <nigel@trexy.com>
69              
70             =head1 SEE ALSO
71