File Coverage

blib/lib/WebService/Cmis/ClientException.pm
Criterion Covered Total %
statement 9 13 69.2
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 20 65.0


line stmt bran cond sub pod time code
1             package WebService::Cmis::ClientException;
2              
3             =head1 NAME
4              
5             WebService::Cmis::ClientException
6              
7             =head1 DESCRIPTION
8              
9             This exception is raised by L when
10             an HTTP error >= 400, < 500 ocurred.
11              
12             See L.
13              
14             Parent class: Error
15              
16             =cut
17              
18 1     1   3622 use strict;
  1         3  
  1         47  
19 1     1   7 use warnings;
  1         2  
  1         34  
20 1     1   7 use Error ();
  1         2  
  1         131  
21             our @ISA = qw(Error);
22              
23             =head1 METHODS
24              
25             =over 4
26              
27             =item new($client)
28              
29             $client is the L been used.
30              
31             =cut
32              
33             sub new {
34 0     0 1   my ($class, $client, $reason) = @_;
35              
36 0           my $url = $client->responseBase;
37 0 0         $reason = $client->responseStatusLine unless defined $reason;
38              
39 0           return $class->SUPER::new(-text=>"$reason at $url");
40             }
41              
42             =back
43              
44             =head1 AUTHOR
45              
46             Michael Daum C<< >>
47              
48             =head1 COPYRIGHT AND LICENSE
49              
50             Copyright 2012-2013 Michael Daum
51              
52             This module is free software; you can redistribute it and/or modify it under
53             the same terms as Perl itself. See F.
54              
55             =cut
56              
57             1;