File Coverage

blib/lib/Footprintless/InvalidEntityException.pm

Criterion	Covered	Total	%
statement	19	34	55.8
branch	0	2	0.0
condition	0	3	0.0
subroutine	7	11	63.6
pod	5	6	83.3
total	31	56	55.3

use strict;
use warnings;

package Footprintless::InvalidEntityException;
$Footprintless::InvalidEntityException::VERSION = '1.28';
# ABSTRACT: An exception thrown when an entity is invalid for the context it is being used in
# PODNAME: Footprintless::InvalidEntityException

use Term::ANSIColor;
use overload '""' => 'to_string';

sub new {
    return bless( {}, shift )->_init(@_);
}

sub _init {
    my ( $self, $coordinate, $message ) = @_;

    $self->{coordinate} = $coordinate;
    $self->{message}    = $message;
    $self->{trace}      = [];

    return $self;
}

sub get_coordinate {
    return $_[0]->{coordinate};
}

sub get_message {
    return $_[0]->{message};
}

sub get_trace {
    return $_[0]->{trace};
}

sub PROPAGATE {
    my ( $self, $file, $line ) = @_;
    push( @{ $self->{trace} }, [ $file, $line ] );
}

sub to_string {
    my ( $self, $trace ) = @_;

    my @parts = ("invalid entity at [$self->{coordinate}]: $self->{message}");
    if ( $trace && @{ $self->{trace} } ) {
        push( @parts, "\n****TRACE****" );
        foreach my $stop ( @{ $self->{trace} } ) {
            push( @parts, "$stop->[0]($stop->[1])" );
        }
        push( @parts, "\n****TRACE****" );
    }

    return join( '', @parts );
}

1;

__END__