File Coverage

blib/lib/Text/Xslate/Bridge/TypeDeclaration/Registry.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	6	6	100.0
condition	3	3	100.0
subroutine	8	8	100.0
pod	3	3	100.0
total	48	48	100.0

package Text::Xslate::Bridge::TypeDeclaration::Registry;
use strict;
use warnings;
use parent qw(Type::Registry);

use Type::Tiny::Class;

# override
sub new {
    my ($class) = @_;
    my $self = $class->SUPER::new;
    $self->add_types('Types::Standard');
    return $self;
}

# override
sub simple_lookup {
    my ($self, $name, $flag) = @_;
    my $type = $self->SUPER::simple_lookup($name, $flag);

    # Given 1 to $flag when parsing a name (undocumented)
    return (!defined $type && $flag)
        ? $self->_class_type($name) : $type;
}

# override
sub foreign_lookup {
    my ($self, $name, $flag) = @_;
    my $type = $self->SUPER::foreign_lookup($name, $flag);
    return $type ? $type : $self->_class_type($name);
}

sub _class_type {
    my ($self, $name) = @_;

    my $type = $self->SUPER::simple_lookup($name);
    unless ($type) {
        $type = Type::Tiny::Class->new(class => $name, display_name => $name);
        $self->add_type($type, $name);
    }

    return $type;
}

1;

__END__