File Coverage

blib/lib/Data/Rx/Type/Rx.pm

Criterion	Covered	Total	%
statement	10	15	66.6
branch			n/a
condition			n/a
subroutine	5	7	71.4
pod	4	4	100.0
total	19	26	73.0

use strict;
use warnings;
package Data::Rx::Type::Rx;
BEGIN {
  $Data::Rx::Type::Rx::VERSION = '0.103520';
}
# ABSTRACT: an individual Rx type definition


sub new {
    my ($class, %options) = @_;
    bless \%options, $class;
}


sub type_uri { $_[0]->{type_uri} }


sub new_checker {
    my ($self, $schema_arg, $rx) = @_;

    $self->{checker} = $rx->make_schema($self->{as});

    return $self;
}


sub check {
    my ($self, $value) = @_;

    return $self->{checker}->check($value);
}

1;

__END__