File Coverage

blib/lib/Goo/DatabaseProfileOption.pm
Criterion Covered Total %
statement 9 16 56.2
branch n/a
condition n/a
subroutine 3 5 60.0
pod 2 2 100.0
total 14 23 60.8


line stmt bran cond sub pod time code
1             # -*- Mode: cperl; mode: folding; -*-
2              
3             package Goo::DatabaseProfileOption;
4              
5             ###############################################################################
6             # Nigel Hamilton
7             #
8             # Copyright Nigel Hamilton 2005
9             # All Rights Reserved
10             #
11             # Author: Nigel Hamilton
12             # Filename: GooDatabaseProfileOption.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   4148 use strict;
  1         2  
  1         40  
22              
23 1     1   513 use Goo::ProfileOption;
  1         3  
  1         26  
24              
25 1     1   6 use base qw(Goo::ProfileOption);
  1         2  
  1         169  
26              
27              
28             ##############################################################################
29             #
30             # new - construct a profile_option
31             #
32             ##############################################################################
33              
34             sub new {
35              
36 0     0 1   my ($class, $params) = @_;
37              
38 0           my $this = $class->SUPER::new($params);
39              
40 0           $this->{thing} = $params->{thing};
41 0           $this->{field_name} = $params->{text};
42              
43 0           return $this;
44             }
45              
46              
47             ##############################################################################
48             #
49             # do - carry out the action!
50             #
51             ##############################################################################
52              
53             sub do {
54              
55 0     0 1   my ($this) = @_;
56              
57 0           $this->{thing}->do_action("E", $this->{field_name});
58              
59             }
60              
61             1;
62              
63              
64              
65             __END__
66              
67             =head1 NAME
68              
69             Goo::DatabaseProfileOption - Store individual options in the profile
70              
71             =head1 SYNOPSIS
72              
73             use Goo::DatabaseProfileOption;
74              
75             =head1 DESCRIPTION
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@trexy.com>
96              
97             =head1 SEE ALSO
98