File Coverage

blib/lib/JOAP/Proxy/Error.pm
Criterion Covered Total %
statement 16 18 88.8
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 22 24 91.6


line stmt bran cond sub pod time code
1             # JOAP/Proxy/Error.pm - base class for JOAP proxy errors
2             #
3             # Copyright (c) 2003, Evan Prodromou evan@prodromou.san-francisco.ca.us.
4             #
5             # This library is free software; you can redistribute it and/or
6             # modify it under the terms of the GNU Lesser General Public
7             # License as published by the Free Software Foundation; either
8             # version 2.1 of the License, or (at your option) any later version.
9             #
10             # This library is distributed in the hope that it will be useful,
11             # but WITHOUT ANY WARRANTY; without even the implied warranty of
12             # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13             # Lesser General Public License for more details.
14             #
15             # You should have received a copy of the GNU Lesser General Public
16             # License along with this library; if not, write to the Free Software
17             # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
18              
19             # tag: JOAP proxy error classes
20              
21             package JOAP::Proxy::Error;
22              
23 1     1   15 use 5.008;
  1         4  
  1         38  
24 1     1   5 use strict;
  1         2  
  1         27  
25 1     1   5 use warnings;
  1         2  
  1         23  
26 1     1   929 use Error;
  1         17259  
  1         7  
27 1     1   74 use Exporter;
  1         2  
  1         29  
28 1     1   89 use JOAP;
  0            
  0            
29             use base qw/Error::Simple/;
30              
31             our $VERSION = $JOAP::VERSION;
32              
33             package JOAP::Proxy::Error::Local;
34              
35             use 5.008;
36             use strict;
37             use warnings;
38             use JOAP;
39             use JOAP::Proxy::Error;
40             use base qw/JOAP::Proxy::Error/;
41              
42             our $VERSION = $JOAP::VERSION;
43              
44             package JOAP::Proxy::Error::Remote;
45              
46             use 5.008;
47             use strict;
48             use warnings;
49             use JOAP;
50             use JOAP::Proxy::Error;
51             use base qw/JOAP::Proxy::Error/;
52              
53             our $VERSION = $JOAP::VERSION;
54              
55             package JOAP::Proxy::Error::Fault;
56              
57             use 5.008;
58             use strict;
59             use warnings;
60             use JOAP;
61             use JOAP::Proxy::Error;
62             use base qw/JOAP::Proxy::Error/;
63              
64             our $VERSION = $JOAP::VERSION;
65              
66             1;
67              
68             __END__