File Coverage

blib/lib/Goo/Exiter.pm
Criterion Covered Total %
statement 6 8 75.0
branch n/a
condition n/a
subroutine 2 3 66.6
pod 1 1 100.0
total 9 12 75.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3             package Goo::Exiter;
4              
5             ###############################################################################
6             # Nigel Hamilton - exit from a script
7             #
8             # Copyright Nigel Hamilton 2005
9             # All Rights Reserved
10             #
11             # Author: Nigel Hamilton
12             # Filename: Goo::Exiter.pm
13             # Description: Exit from The Goo
14             #
15             #
16             # Date Change
17             # -----------------------------------------------------------------------------
18             # 06/07/2005 Version 1
19             #
20             ###############################################################################
21              
22 1     1   3567 use Goo::Object;
  1         3  
  1         28  
23 1     1   6 use Goo::Prompter;
  1         2  
  1         76  
24              
25             our @ISA = qw(Goo::Object);
26              
27              
28             ###############################################################################
29             #
30             # run - exit from the goo
31             #
32             ###############################################################################
33              
34             sub run {
35            
36 0     0 1   Goo::Prompter::say("");
37              
38             # pretty simple - let's exit!
39 0           exit;
40              
41             }
42              
43             1;
44              
45              
46              
47              
48              
49              
50              
51             __END__
52              
53             =head1 NAME
54              
55             Goo::Exiter - Exit from The Goo
56              
57             =head1 SYNOPSIS
58              
59             use Goo::Exiter;
60              
61             =head1 DESCRIPTION
62              
63             Top level action handler (i.e., E[X]it). Called when the user wants to exit The Goo.
64              
65             =head1 METHODS
66              
67             =over
68              
69             =item run
70              
71             exit from The Goo
72              
73             =back
74              
75             =head1 AUTHOR
76              
77             Nigel Hamilton <nigel@trexy.com>
78              
79             =head1 SEE ALSO
80