File Coverage

blib/lib/Siebel/Srvrmgr/Daemon/Action/LoadPreferences.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Siebel::Srvrmgr::Daemon::Action::LoadPreferences;
2              
3             =pod
4              
5             =head1 NAME
6              
7             Siebel::Srvrmgr::Daemon::Action::LoadPreferences - dummy subclass of Siebel::Srvrmgr::Daemon::Action to allow execution of load preferences command
8              
9             =head1 SYNOPSIS
10              
11             use Siebel::Srvrmgr::Daemon::Action::LoadPreferences;
12             my $action = Siebel::Srvrmgr::Daemon::Action::LoadPreferences->new(parser => Siebel::Srvrmgr::ListParser->new());
13             $action->do(\@output);
14              
15             =cut
16              
17 5     5   8497 use Moose 2.0401;
  5         139  
  5         56  
18 5     5   51919 use namespace::autoclean 0.13;
  5         152  
  5         54  
19              
20             extends 'Siebel::Srvrmgr::Daemon::Action';
21             our $VERSION = '0.29'; # VERSION
22              
23             =head1 DESCRIPTION
24              
25             The only usage for this class is to allow execution of C<load preferences> command by a L<Siebel::Srvrmgr::Daemon> object, allowing the execution
26             and parsing of the output of the command to be executed in the regular cycle of processing.
27              
28             Executing C<load preferences> is particullary useful for setting the correct columns and sizing of output of commands like C<list comp>.
29              
30             =head1 METHODS
31              
32             =head2 do_parsed
33              
34             It checks if the given object as parameter is a L<Siebel::Srvrmgr::ListParser::Output::LoadPreferences> object and then returning true, otherwise
35             returns false.
36              
37             =cut
38              
39             override 'do_parsed' => sub {
40             my ($self, $item) = @_;
41              
42             if ( blessed($item) eq $self->get_exp_output() ) {
43             return 1;
44             }
45             else {
46             return 0;
47             }
48              
49             };
50              
51             override _build_exp_output => sub {
52             return 'Siebel::Srvrmgr::ListParser::Output::LoadPreferences';
53             };
54              
55             =pod
56              
57             =head1 SEE ALSO
58              
59             =over
60              
61             =item *
62              
63             L<Siebel::Srvrmgr::Daemon>
64              
65             =item *
66              
67             L<Siebel::Srvrmgr::Daemon::Action>
68              
69             =item *
70              
71             L<Siebel::Srvrmgr::ListParser::Output::LoadPreferences>
72              
73             =back
74              
75             =head1 AUTHOR
76              
77             Alceu Rodrigues de Freitas Junior, E<lt>arfreitas@cpan.orgE<gt>
78              
79             =head1 COPYRIGHT AND LICENSE
80              
81             This software is copyright (c) 2012 of Alceu Rodrigues de Freitas Junior, E<lt>arfreitas@cpan.orgE<gt>.
82              
83             This file is part of Siebel Monitoring Tools.
84              
85             Siebel Monitoring Tools is free software: you can redistribute it and/or modify
86             it under the terms of the GNU General Public License as published by
87             the Free Software Foundation, either version 3 of the License, or
88             (at your option) any later version.
89              
90             Siebel Monitoring Tools is distributed in the hope that it will be useful,
91             but WITHOUT ANY WARRANTY; without even the implied warranty of
92             MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
93             GNU General Public License for more details.
94              
95             You should have received a copy of the GNU General Public License
96             along with Siebel Monitoring Tools. If not, see <http://www.gnu.org/licenses/>.
97              
98             =cut
99              
100             __PACKAGE__->meta->make_immutable;