File Coverage

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

Criterion	Covered	Total	%
statement	3	12	25.0
branch			n/a
condition	0	2	0.0
subroutine	1	2	50.0
pod			n/a
total	4	16	25.0

# ABSTRACT: Data::Seek Unknown Root Exception Class
package Data::Seek::Exception::RootUnknown;

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

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

1;

__END__