File Coverage

blib/lib/Data/YADV/CheckerASub.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	21	23	91.3

package Data::YADV::CheckerASub;

use strict;
use warnings;

use base 'Data::YADV::Checker';

sub new {
    my $class = shift;
    my $cb = shift;

    my $self = $class->SUPER::new(@_);
    $self->{cb} = $cb;

    $self;
}

sub verify {
    my $self = shift;

    $self->{cb}->($self, $self->structure->get_structure, @_);
}

1;