File Coverage

/.cpan/build/Net-FreeDB2-0.8.2.6-xK8Ulr/blib/lib/Net/FreeDB2/Response.pm
Criterion Covered Total %
statement 12 26 46.1
branch n/a
condition 0 3 0.0
subroutine 4 10 40.0
pod 5 5 100.0
total 21 44 47.7


line stmt bran cond sub pod time code
1             package Net::FreeDB2::Response;
2              
3             # Copyright 2002, Vincenzo Zocca.
4              
5             # See LICENSE section for usage and distribution rights.
6              
7             require 5.005_62;
8 8     8   63 use strict;
  8         17  
  8         342  
9 8     8   280 use warnings;
  8         16  
  8         279  
10 8     8   967 use Error qw (:try);
  8         9016  
  8         105  
11              
12             require Exporter;
13 8     8   2346 use AutoLoader qw(AUTOLOAD);
  8         2540  
  8         57  
14              
15             our @ISA = qw(Exporter);
16              
17             # Items to export into callers namespace by default. Note: do not export
18             # names by default without a very good reason. Use EXPORT_OK instead.
19             # Do not simply export all your public functions/methods/constants.
20              
21             # This allows declaration use Net::FreeDB2::Response ':all';
22             # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
23             # will save memory.
24             our %EXPORT_TAGS = ( 'all' => [ qw(
25            
26             ) ] );
27              
28             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
29              
30             our @EXPORT = qw(
31            
32             );
33             our ( $VERSION ) = '$Revision: 0.8.2.3 $ ' =~ /\$Revision:\s+([^\s]+)/;
34              
35             sub new {
36 0     0 1   my $class = shift;
37              
38 0           my $self = {};
39 0   0       bless ($self, (ref($class) || $class));
40 0           return ($self->_initialize (@_));
41             }
42              
43             sub _initialize {
44 0     0     my $self = shift;
45              
46 0           return ($self);
47             }
48              
49             sub setError {
50 0     0 1   my $self = shift;
51              
52 0           $self->{Net_FreeDB2_Response}{error} = int (shift);
53             }
54              
55             sub hasError {
56 0     0 1   my $self = shift;
57              
58 0           return ($self->{Net_FreeDB2_Response}{error});
59             }
60              
61             sub setResult {
62 0     0 1   my $self = shift;
63              
64 0           $self->{Net_FreeDB2_Response}{result} = shift;
65             }
66              
67             sub getResult {
68 0     0 1   my $self = shift;
69              
70 0           return ($self->{Net_FreeDB2_Response}{result});
71             }
72              
73             1;
74             __END__