File Coverage

blib/lib/Goo/Thing/js/JSFunctionProfileOption.pm
Criterion Covered Total %
statement 4 6 66.6
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 6 8 75.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3             package JSFunctionProfileOption;
4              
5             ###############################################################################
6             # Nigel Hamilton
7             #
8             # Copyright Nigel Hamilton 2005
9             # All Rights Reserved
10             #
11             # Author: Nigel Hamilton
12             # Filename: JSFunctionProfileOption.pm
13             # Description: Handle simple Jumps to matching strings for example
14             #
15             # Date Change
16             # ----------------------------------------------------------------------------
17             # 11/08/2005 Added method: test
18             #
19             ##############################################################################
20              
21 1     1   3450 use strict;
  1         3  
  1         33  
22 1     1   483 use ProfileOption;
  0            
  0            
23              
24             use base qw(ProfileOption);
25              
26              
27             ##############################################################################
28             #
29             # new - construct a profile_option
30             #
31             ##############################################################################
32              
33             sub new {
34              
35             my ($class, $params) = @_;
36              
37             my $this = $class->SUPER::new($params);
38              
39             $this->{thing} = $params->{thing};
40             $this->{match_text} = $params->{text};
41              
42             return $this;
43             }
44              
45              
46             ##############################################################################
47             #
48             # do - carry out the action!
49             #
50             ##############################################################################
51              
52             sub do {
53              
54             my ($this) = @_;
55              
56             $this->{thing}->do_action("J", "function $this->{text}");
57              
58             }
59              
60             1;
61              
62              
63              
64             __END__
65              
66             =head1 NAME
67              
68             JSFunctionProfileOption - Handle simple Jumps to matching strings for example
69              
70             =head1 SYNOPSIS
71              
72             use JSFunctionProfileOption;
73              
74             =head1 DESCRIPTION
75              
76              
77              
78             =head1 METHODS
79              
80             =over
81              
82             =item new
83              
84             construct a profile_option
85              
86             =item do
87              
88             carry out the action!
89              
90              
91             =back
92              
93             =head1 AUTHOR
94              
95             Nigel Hamilton <nigel@turbo10.com>
96              
97             =head1 SEE ALSO
98