File Coverage

blib/lib/Error/Exception/Class.pm

Criterion	Covered	Total	%
statement	14	16	87.5
branch	0	2	0.0
condition			n/a
subroutine	4	5	80.0
pod			n/a
total	18	23	78.2

# Copyright (C) 2008 Stephen Vance
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the Perl Artistic License.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the Perl
# Artistic License for more details.
#
# You should have received a copy of the Perl Artistic License along
# with this library; if not, see:
#
#       http://www.perl.com/language/misc/Artistic.html
#
# Designed and written by Stephen Vance ([e-mail]) on behalf
# of The MathWorks, Inc.

package Error::Exception::Class;

use strict;
use warnings;

use base qw( Exception::Class );

our $VERSION = '1.0';

sub import {
    my ($pkg, @exceptions) = @_;

    local $Exception::Class::BASE_EXC_CLASS = 'Error::Exception';

    local *CORE::GLOBAL::caller = sub {
        my ($n) = @_ ? @_ : 0;
        return CORE::caller( $n + 1 );
    };

    $pkg->SUPER::import( @exceptions );

    return;
}

1;
__END__