File Coverage

blib/lib/Error/Hierarchy/Base.pm

Criterion	Covered	Total	%
statement	17	25	68.0
branch			n/a
condition			n/a
subroutine	7	10	70.0
pod	3	3	100.0
total	27	38	71.0

use 5.008;
use strict;
use warnings;

package Error::Hierarchy::Base;
BEGIN {
  $Error::Hierarchy::Base::VERSION = '1.103530';
}
# ABSTRACT: Base class for hierarchical exception classes
use parent qw(
  Error
  Data::Inherited
  Class::Accessor::Complex
);
__PACKAGE__->mk_new;    # so we don't get Error::new()
use overload
  '""'     => 'stringify',
  'cmp'    => sub { "$_[0]" cmp "$_[1]" },
  fallback => 1;
sub stringify { }

sub dump_raw {
    my $self = shift;
    require Data::Dumper;
    local $Data::Dumper::Indent = 1;
    Data::Dumper::Dumper($self);
}

sub dump_as_yaml {
    my $self = shift;
    require YAML;
    YAML::Dump($self);
}
1;


__END__