File Coverage

blib/lib/XAS/Exception.pm

Criterion	Covered	Total	%
statement	3	14	21.4
branch	0	6	0.0
condition	0	3	0.0
subroutine	1	4	25.0
pod	3	3	100.0
total	7	30	23.3

package XAS::Exception;

use base Badger::Exception;
$Badger::Exception::TRACE = 1;

sub type {
    my $self = shift;

    return @_
      ? ($self->{'type'} = shift)
      : ($self->{'type'} || $TYPE);

}

sub type_info {
    my $self = shift;

    return $self->type, $self->info;

}

sub stack_trace {
    my $self = shift;

    my @lines;

    if (my $stack = $self->{ stack }) {

        foreach my $caller (@$stack) {

            # ignore Try::Tiny lines

            next if (grep( $_ =~ /Try::Tiny/, @$caller ));
            push(@lines, $self->message( caller => @$caller ));

        }

    }

    return join("\n", @lines);

}

1;

__END__