package MooseX::Types::UndefinedType;
our $VERSION = "0.24";
=head1 NAME
MooseX::Types::UndefinedType - Represents a not yet defined type
=cut
use warnings;
use strict;
use Moose::Util::TypeConstraints ();
use Carp::Clan qw( ^MooseX::Types );
use overload '""' => sub { shift->name },
fallback => 1;
=head1 DESCRIPTION
Whenever a type handle function (e.g. C<Int()> can't find a type
constraint under it's full name, it assumes it has not yet been defined.
It will then return an instance of this class, handling only
stringification, name and possible identification of undefined types.
Later, when you try to use the Undefined Type Constraint, autovivification will
be attempted.
=head1 METHODS
=head2 new
Takes a full type name as argument and returns an instance of this
class.
=cut
sub new {
return bless { name => $_[1] }, $_[0];
}
=head2 name
Returns the stored type name.
=cut
sub name {
return $_[0]->{name};
}
=head2 __autovivify
Try to see if the type constraint has yet been defined and if so create it.
=cut
sub __autovivify {
my ($self) = @_;
if(my $tc = $self->{instance}) {
return $tc;
} elsif( my $new_tc = Moose::Util::TypeConstraints::find_type_constraint($self->name)) {
$self->{instance} = $new_tc;
return $new_tc;
} else {
return;
}
}
=head2 AUTOLOAD
Try to autovivify and delegate
=cut
sub AUTOLOAD {
my ($self, @args) = @_;
my ($method) = our $AUTOLOAD =~ /([^:]+)$/;
if(my $type_constraint = $self->__autovivify) {
return $type_constraint->$method(@args);
} else {
croak "Method '$method' is not supported for " . $self->name;
}
}
=head2 DESTROY
Moose::Meta::TypeConstraint::Parameterizable complains if this isn't here. TODO
to find out why.
=cut
sub DESTROY {
return;
}
=head1 SEE ALSO
L<MooseX::Types::Moose>,
L<Moose::Util::TypeConstraints>,
L<Moose::Meta::TypeConstraint>,
L<Carp::Clan>
=head1 AUTHOR
See L<MooseX::Types/AUTHOR>.
=head1 LICENSE
This program is free software; you can redistribute it and/or modify
it under the same terms as perl itself.
=cut
1;