# sugars
-sub as ($) { (as => $_[0]) }
-sub where (&) { (where => $_[0]) }
-sub message (&) { (message => $_[0]) }
-sub optimize_as (&) { (optimize_as => $_[0]) }
+sub as ($) { (as => $_[0]) } ## no critic
+sub where (&) { (where => $_[0]) } ## no critic
+sub message (&) { (message => $_[0]) } ## no critic
+sub optimize_as (&) { (optimize_as => $_[0]) } ## no critic
sub from { @_ }
-sub via (&) { $_[0] }
+sub via (&) { $_[0] } ## no critic
# type utilities
@methods = (@_ == 1 && ref($_[0]) eq 'ARRAY') ? @{$_[0]} : @_;
# DuckType
- return _create_type 'type', $name => (
+ return _create_type 'subtype', $name => (
+ as => 'Object',
optimized_as => Mouse::Util::generate_can_predicate_for(\@methods),
);
}
%valid = map{ $_ => undef } (@_ == 1 && ref($_[0]) eq 'ARRAY' ? @{$_[0]} : @_);
# EnumType
- return _create_type 'type', $name => (
+ return _create_type 'subtype', $name => (
+ as => 'Str',
optimized_as => sub{ defined($_[0]) && !ref($_[0]) && exists $valid{$_[0]} },
);
}
=head1 VERSION
-This document describes Mouse version 0.50_07
+This document describes Mouse version 0.57
=head2 SYNOPSIS
existing type, it assumes that this is a class name, for example
C<ArrayRef[DateTime]>.
-B<NOTE:> Unless you parameterize a type, then it is invalid to include
-the square brackets. I.e. C<ArrayRef[]> will be treated as a new type
-name, I<not> as a parameterization of C<ArrayRef>.
-
B<NOTE:> The C<Undef> type constraint for the most part works
correctly now, but edge cases may still exist, please use it
sparingly.