File Coverage

blib/lib/Goo/Thing/pm/MethodProfileOption.pm
Criterion Covered Total %
statement 15 23 65.2
branch n/a
condition n/a
subroutine 5 7 71.4
pod 2 2 100.0
total 22 32 68.7


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