File Coverage

blib/lib/Servlet/ServletException.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

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

package Servlet::ServletException;

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

__PACKAGE__->do_trace(1);

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

    my $class = ref($type) || $type;
    my $error = $root && !$msg ?
        $root->getMessage() :
            $msg;
    my $self = $class->SUPER::new($error);

    $self->{root} = $root;

    return $self;
}

sub getRootCause {
    my $self = shift;

    return $self->{root};
}

1;
__END__