File Coverage

blib/lib/Goo/TrailGoBack.pm
Criterion Covered Total %
statement 12 19 63.1
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod 1 1 100.0
total 17 27 62.9


line stmt bran cond sub pod time code
1             package Goo::TrailGoBack;
2              
3             ###############################################################################
4             # Nigel Hamilton
5             #
6             # Copyright Nigel Hamilton 2005
7             # All Rights Reserved
8             #
9             # Author: Nigel Hamilton
10             # Filename: Goo::TrailGoBack.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   6856 use strict;
  1         3  
  1         33  
22              
23 1     1   5 use Goo::Object;
  1         3  
  1         19  
24 1     1   458 use Goo::Thing::gml::Writer;
  1         2  
  1         26  
25              
26 1     1   5 use base qw(Goo::Object);
  1         2  
  1         162  
27              
28              
29             ###############################################################################
30             #
31             # run - go back!!
32             #
33             ###############################################################################
34              
35             sub run {
36              
37 0     0 1   my ($this, $thing) = @_;
38              
39 0           $thing->{start_position} = $thing->{start_position} - $thing->{buffer_size};
40              
41 0 0         if ($thing->{start_position} < 1) { $thing->{start_position} = 1; }
  0            
42              
43 0           $thing->{end_position} = $thing->{end_position} - $thing->{buffer_size};
44              
45             # update the thing!
46 0           Goo::Thing::gml::Writer::write($thing, $thing->get_full_path());
47              
48             # OK show the profile again
49 0           $thing->do_action("P");
50              
51             }
52              
53             1;
54              
55              
56             __END__
57              
58             =head1 NAME
59              
60             Goo::TrailGoBack - Jump backwards in the Goo Trail
61              
62             =head1 SYNOPSIS
63              
64             use Goo::TrailGoBack;
65              
66             =head1 DESCRIPTION
67              
68              
69              
70             =head1 METHODS
71              
72             =over
73              
74             =item run
75              
76             go back!!
77              
78              
79             =back
80              
81             =head1 AUTHOR
82              
83             Nigel Hamilton <nigel@trexy.com>
84              
85             =head1 SEE ALSO
86