#
# BZ::Client::Exception.pm - Exception class thrown by BZ::Client
# in case of errors.
#
use strict;
use warnings "all";
package BZ::Client::Exception;
our $VERSION = 1.0;
sub throw ($@) {
my $class = shift;
die $class->new(@_);
}
sub new ($@) {
my $class = shift;
my $self = { @_ };
bless($self, ref($class) || $class);
return $self;
}
sub message($) {
my($self) = shift;
return $self->{"message"};
}
sub xmlrpc_code($) {
my($self) = shift;
return $self->{"xmlrpc_code"};
}
sub http_code($) {
my($self) = shift;
return $self->{"http_code"};
}
1;
=pod
=head1 NAME
BZ::Client::Exception - Exception class, which is thrown by
BZ::Client in case of errors.
BZ::Client does not return error codes or do similar stuff.
Instead, it throws instances of BZ::Client::Exception.
=head1 SYNOPSIS
my $exception = BZ::Client::Exception->new(message => $message,
http_code => $httpCode,
xmlrpc_code => $xmlrpcCode);
BZ::Client::Exception->throw(message => $message,
http_code => $httpCode,
xmlrpc_code => $xmlrpcCode);
=head1 SEE ALSO
L<BZ::Client>