File Coverage

blib/lib/Goo/TrailGoBackOne.pm
Criterion Covered Total %
statement 12 15 80.0
branch n/a
condition n/a
subroutine 4 5 80.0
pod 1 1 100.0
total 17 21 80.9


line stmt bran cond sub pod time code
1             package Goo::TrailGoBackOne;
2              
3             ###############################################################################
4             # Nigel Hamilton
5             #
6             # Copyright Nigel Hamilton 2005
7             # All Rights Reserved
8             #
9             # Author: Nigel Hamilton
10             # Filename: Goo::TrailGoBackOne.pm
11             # Description: Jump backwards in the Goo Trail
12             #
13             # Date Change
14             # -----------------------------------------------------------------------------
15             # 21/08/2005 Deleted method: generateProfile
16             # 21/08/2005 Deleted method: showProfile
17             # 21/08/2005 Deleted method: getGooTrailTable
18             #
19             ###############################################################################
20              
21 1     1   14565 use strict;
  1         3  
  1         38  
22              
23 1     1   7 use Goo::Object;
  1         2  
  1         24  
24 1     1   6 use Goo::TrailManager;
  1         3  
  1         27  
25 1     1   6 use base qw(Goo::Object);
  1         2  
  1         164  
26              
27              
28             ###############################################################################
29             #
30             # run - go back!!
31             #
32             ###############################################################################
33              
34             sub run {
35              
36 0     0 1   my ($this, $thing) = @_;
37              
38 0           my $new_thing = Goo::TrailManager::go_back_one();
39              
40             # go back!
41 0           $new_thing->do_action("B");
42              
43             }
44              
45             1;
46              
47              
48             __END__
49              
50             =head1 NAME
51              
52             Goo::TrailGoBackOne - Jump backwards one step in the Goo Trail
53              
54             =head1 SYNOPSIS
55              
56             use Goo::TrailGoBackOne;
57              
58             =head1 DESCRIPTION
59              
60             =head1 METHODS
61              
62             =over
63              
64             =item run
65              
66             perform the action of jumping back one step in the Goo Trail
67              
68             =back
69              
70             =head1 AUTHOR
71              
72             Nigel Hamilton <nigel@trexy.com>
73              
74             =head1 SEE ALSO
75