File Coverage

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

Criterion	Covered	Total	%
statement	3	15	20.0
branch			n/a
condition	0	2	0.0
subroutine	1	2	50.0
pod			n/a
total	4	19	21.0

# ABSTRACT: Data::Seek Unknown Node Exception Class
package Data::Seek::Exception::NodeUnknown;

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 @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):',
        'NO CHILD DATA/NODE (%s) FOUND AT (%s) WHILE SEEKING (%s)';

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

1;

__END__