File Coverage

blib/lib/Data/Seek/Exception/NodeInvalid.pm

Criterion	Covered	Total	%
statement	3	18	16.6
branch	0	4	0.0
condition	0	2	0.0
subroutine	1	2	50.0
pod			n/a
total	4	26	15.3

# ABSTRACT: Data::Seek Invalid Node Exception Class
package Data::Seek::Exception::NodeInvalid;

use Data::Object::Class;

extends 'Data::Seek::Exception';

our $VERSION = '0.06'; # VERSION

has 'criterion',  is => 'ro';
has 'separator',  is => 'ro';
has 'subject',    is => 'ro';
has 'target',     is => 'ro';

has 'was_array',  is => 'ro';
has 'was_ending', is => 'ro';
has 'was_hash',   is => 'ro';
has 'was_match',  is => 'ro';

sub _build_message {
    my $self = shift;
    my $was_array = $self->was_array;
    my $was_hash  = $self->was_hash;

    my $type = $was_hash ? 'AN OBJECT' : $was_array ? 'A LIST' : 'INVALID';

    my @subject   = @{$self->subject};
    my @target    = @{$self->target};
    my $ending    = pop @subject;
    my $criterion = $self->criterion;
    my $separator = $self->separator // ' -> ';
    my $subject   = join $separator, @subject;
    my $target    = join $separator, @target;

    my $message = join ' ',
        'ERROR MATCHING CRITERION (%s):',
        'INVALID ENDING AT CHILD DATA/NODE (%s)',
        'UNDER (%s) WHILE SEEKING (%s), NODE VALUE IS %s (NOT A STRING)';

    return sprintf $message, $criterion, $ending, $subject, $target, $type;
}

1;

__END__