File Coverage

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

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

# ABSTRACT: Data::Seek Invalid Root Exception Class
package Data::Seek::Exception::RootInvalid;

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 'is_array',  is => 'ro';
has 'is_ending', is => 'ro';
has 'is_hash',   is => 'ro';
has 'is_match',  is => 'ro';

sub _build_message {
    my $self = shift;
    my $is_array = $self->is_array;
    my $is_hash  = $self->is_hash;

    my $type = $is_hash ? 'AN OBJECT' : $is_array ? 'A LIST' : 'INVALID';

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

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

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

1;

__END__