package WebService::Cmis::ClientException; =head1 NAME WebService::Cmis::ClientException =head1 DESCRIPTION This exception is raised by L<WebService::Cmis::Client> when an HTTP error >= 400, < 500 ocurred. See L<WebService::Cmis::Client/processErrors>. Parent class: Error =cut use strict; use warnings; use Error (); our @ISA = qw(Error); =head1 METHODS =over 4 =item new($client) $client is the L<WebService::Cmis::Client> been used. =cut sub new { my ($class, $client) = @_; my $reason = $client->responseStatusLine; my $url = $client->responseBase; return $class->SUPER::new(-text=>"$reason at $url"); } =back =head1 AUTHOR Michael Daum C<< <daum@michaeldaumconsulting.com> >> =head1 COPYRIGHT AND LICENSE Copyright 2012 Michael Daum This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/artistic.html>. =cut 1;