'Int' => '=i',
'Num' => '=f',
'ArrayRef' => '=s@',
- 'HashRef' => '=s%',
+ 'HashRef' => '=s%',
);
sub has_option_type {
return 1 if exists $option_type_map{blessed($type_or_name) ? $type_or_name->name : $type_or_name};
my $current = blessed($type_or_name) ? $type_or_name : find_type_constraint($type_or_name);
-
+
(defined $current)
- || confess "Could not find the type constraint for '$type_or_name'";
-
+ || Moose->throw_error("Could not find the type constraint for '$type_or_name'");
+
while (my $parent = $current->parent) {
return 1 if exists $option_type_map{$parent->name};
$current = $parent;
return $option_type_map{$name} if exists $option_type_map{$name};
my $current = ref $type_or_name ? $type_or_name : find_type_constraint($type_or_name);
-
+
(defined $current)
- || confess "Could not find the type constraint for '$type_or_name'";
+ || Moose->throw_error("Could not find the type constraint for '$type_or_name'");
while ( $current = $current->parent ) {
return $option_type_map{$current->name}
sub add_option_type_to_map {
my (undef, $type_name, $option_string) = @_;
(defined $type_name && defined $option_string)
- || confess "You must supply both a type name and an option string";
+ || Moose->throw_error("You must supply both a type name and an option string");
if ( blessed($type_name) ) {
$type_name = $type_name->name;
} else {
(find_type_constraint($type_name))
- || confess "The type constraint '$type_name' does not exist";
+ || Moose->throw_error("The type constraint '$type_name' does not exist");
}
$option_type_map{$type_name} = $option_string;
=head1 BUGS
-All complex software has bugs lurking in it, and this module is no
+All complex software has bugs lurking in it, and this module is no
exception. If you find a bug please either email me, or add the bug
to cpan-RT.