File Coverage

blib/lib/Servlet/Util/Exception.pm

Criterion	Covered	Total	%
statement	30	39	76.9
branch			n/a
condition	0	3	0.0
subroutine	10	13	76.9
pod			n/a
total	40	55	72.7

# -*- Mode: Perl; indent-tabs-mode: nil; -*-

package Servlet::Util::Exception;

use Exception::Class ();

use base qw(Exception::Class::Base);
use strict;
use warnings;

# for some reason, if i try to declare subclasses via
# Exception::Class::import(), things break. i can't figure out why,
# and it's not really important.

__PACKAGE__->do_trace(1);

sub new {
    my $type = shift;
    my $msg = shift;

    my $class = ref($type) || $type;
    my $self = $class->SUPER::new(error => $msg);

    return $self;
}

sub getMessage {
    my $self = shift;

    return $self->error();
}

sub toString {
    my $self = shift;

    return $self->to_string();
}

1;

package Servlet::Util::IOException;

use base qw(Servlet::Util::Exception);

__PACKAGE__->do_trace(1);

1;
package Servlet::Util::IllegalArgumentException;

use base qw(Servlet::Util::Exception);

__PACKAGE__->do_trace(1);

1;
package Servlet::Util::IllegalStateException;

use base qw(Servlet::Util::Exception);

__PACKAGE__->do_trace(1);

1;
package Servlet::Util::IndexOutOfBoundsException;

use base qw(Servlet::Util::Exception);

__PACKAGE__->do_trace(1);

1;
package Servlet::Util::UndefReferenceException;

use base qw(Servlet::Util::Exception);

__PACKAGE__->do_trace(1);

1;
package Servlet::Util::UnsupportedEncodingException;

use base qw(Servlet::Util::Exception);

__PACKAGE__->do_trace(1);

1;
__END__