File Coverage

blib/lib/Cvs/Result/Base.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition 1 3 33.3
subroutine 4 4 100.0
pod 1 2 50.0
total 19 22 86.3


line stmt bran cond sub pod time code
1             package Cvs::Result::Base;
2              
3 4     4   31 use strict;
  4         7  
  4         167  
4 4     4   25 use base qw(Class::Accessor);
  4         6  
  4         1215  
5              
6             Cvs::Result::Base->mk_accessors(qw(success error));
7              
8             sub new
9             {
10 4     4 1 17 my($proto, @args) = @_;
11 4   33     25 my $class = ref $proto || $proto;
12 4         21 my $self = {};
13 4         12 bless($self, $class);
14 4         35 return $self->init(@args);
15             }
16              
17             sub init
18             {
19 4     4 0 10 my($self, @args) = @_;
20 4         35 return $self;
21             }
22              
23             1;
24             =pod
25              
26             =head1 LICENCE
27              
28             This library is free software; you can redistribute it and/or modify
29             it under the terms of the GNU Lesser General Public License as
30             published by the Free Software Foundation; either version 2.1 of the
31             License, or (at your option) any later version.
32              
33             This library is distributed in the hope that it will be useful, but
34             WITHOUT ANY WARRANTY; without even the implied warranty of
35             MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
36             Lesser General Public License for more details.
37              
38             You should have received a copy of the GNU Lesser General Public
39             License along with this library; if not, write to the Free Software
40             Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
41             USA
42              
43             =head1 COPYRIGHT
44              
45             Copyright (C) 2003 - Olivier Poitrey
46