File Coverage

blib/lib/Data/Rx/TypeBundle/Rx.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	1	2	50.0
condition			n/a
subroutine	9	9	100.0
pod	3	3	100.0
total	38	39	97.4

use strict;
use warnings;
package Data::Rx::TypeBundle::Rx;
BEGIN {
  $Data::Rx::TypeBundle::Rx::VERSION = '0.103520';
}
# ABSTRACT: Build types from Data::Rx schema (experimental)

use base 'Data::Rx::TypeBundle';

use Data::Rx::Type::Rx;


sub new {
    my ($class, $args) = @_;
    $args->{type_plugins} = [] unless $args->{type_plugins};
    my $self = { %$args };
    bless $self, $class;
}

sub _prefix_pairs {
    my $self = shift;
    return ();
}


sub register_type {
    my ($self, $type_uri, $as) = @_;

    push @{ $self->{type_plugins} }, Data::Rx::Type::Rx->new(
        type_uri => $type_uri,
        as       => $as,
    );
}


sub type_plugins {
    my $self = shift;
    return @{ $self->{type_plugins} };
}


1;

__END__