package Mouse::Meta::TypeConstraint;
use strict;
use warnings;
-use Carp ();
use overload '""' => sub { shift->{name} }, # stringify to tc name
fallback => 1;
+use Carp ();
+
+use Mouse::Util ();
+
sub new {
my $class = shift;
my %args = @_;
}
}
+sub is_a_type_of{
+ my($self, $tc_name) = @_;
+
+ return $self->name eq $tc_name
+ || $self->name =~ /\A $tc_name \[/xms; # "ArrayRef" =~ "ArrayRef[Foo]"
+}
+
1;
__END__