File Coverage

blib/lib/Error/Hierarchy/Internal/AbstractMethod.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	1	2	50.0
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	33	34	97.0

use 5.008;
use strict;
use warnings;

package Error::Hierarchy::Internal::AbstractMethod;
BEGIN {
  $Error::Hierarchy::Internal::AbstractMethod::VERSION = '1.103530';
}
# ABSTRACT: Exception for unimplemented methods
use parent qw(Error::Hierarchy::Internal Class::Accessor);
__PACKAGE__->mk_accessors(qw(method));
use constant default_message => 'called abstract method [%s]';
use constant PROPERTIES      => ('method');

sub init {
    my $self = shift;

    # because we call SUPER::init(), which uses caller() to set
    # package, filename and line of the exception, *plus* we don't want
    # to report the abstract method that threw this exception itself,
    # rather we want to report its caller, i.e. the one that called the
    # abstract method. So we use +2.
    local $Error::Depth = $Error::Depth + 2;
    $self->method((caller($Error::Depth))[3]) unless defined $self->method;
    $self->SUPER::init(@_);
}
1;


__END__