File Coverage

blib/lib/Test/Stream/Compare/Custom.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	2	2	100.0
condition	4	4	100.0
subroutine	7	7	100.0
pod	1	2	50.0
total	41	42	97.6

package Test::Stream::Compare::Custom;
use strict;
use warnings;

use base 'Test::Stream::Compare';
use Test::Stream::HashBase accessors => [qw/code name operator/];

use Carp qw/croak/;

sub init {
    my $self = shift;

    croak "'code' is required" unless $self->{+CODE};

    $self->{+OPERATOR} ||= 'CODE(...)';
    $self->{+NAME}     ||= '';

    $self->SUPER::init();
}

sub verify {
    my $self = shift;
    my %params = @_;
    my ($got, $exists) = @params{qw/got exists/};

    my $code = $self->{+CODE};

    local $_ = $got;
    my $ok = $code->(
        got      => $got,
        exists   => $exists,
        operator => $self->{+OPERATOR},
        name     => $self->{+NAME}
    );

    return $ok;
}

1;

__END__