well as the base object class. Reimplemented metaclass traits
using this module. (Dave Rolsky)
+0.55_03 Fri August 29, 2008
+ * No changes from 0.55_02 except increasing the Class::MOP
+ dependency to 0.64_07.
+
0.55_02 Fri August 29, 2008
* Makefile.PL and Moose.pm
- explicitly require Perl 5.8.0+ (Dave Rolsky)
requires 'perl' => '5.008';
requires 'Scalar::Util' => $win32 ? '1.17' : '1.18';
requires 'Carp';
-requires 'Class::MOP' => '0.64_06';
+requires 'Class::MOP' => '0.6407';
requires 'List::MoreUtils';
requires 'Sub::Exporter' => '0.972';
-Moose version 0.55_02
+Moose version 0.55_03
===========================
See the individual module documentation for more information
use 5.008;
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Moose::Exporter;
-use Class::MOP 0.6406;
+use Class::MOP 0.6407;
use Moose::Meta::Class;
use Moose::Meta::TypeConstraint;
use Carp 'confess';
use Scalar::Util 'weaken', 'blessed';
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use strict;
use warnings;
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use strict;
use warnings;
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Carp 'confess';
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Carp 'confess';
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Carp 'confess';
use Scalar::Util 'blessed', 'weaken';
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Carp 'confess';
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Carp 'confess';
use Scalar::Util 'blessed';
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use warnings;
use metaclass;
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Carp 'confess';
use Scalar::Util 'blessed';
-use Data::Dumper;
use Moose::Meta::Role::Composite;
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Carp 'confess';
use Scalar::Util 'blessed';
-use Data::Dumper;
-
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Carp 'confess';
use Scalar::Util 'blessed';
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Carp 'confess';
use Scalar::Util 'blessed';
-use Data::Dumper;
-
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Carp 'confess';
use Scalar::Util 'blessed';
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use strict;
use warnings;
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use strict;
use warnings;
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Moose::Meta::Attribute;
use Moose::Util::TypeConstraints ();
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Carp 'confess';
use Scalar::Util 'blessed';
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use base qw(Class::MOP::Object);
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Scalar::Util 'blessed';
use Moose::Util::TypeConstraints ();
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Moose::Util::TypeConstraints ();
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use warnings;
use metaclass;
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Carp 'confess';
use Moose::Util::TypeConstraints;
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Scalar::Util 'blessed';
use Carp 'confess';
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Scalar::Util 'blessed';
use Moose::Util::TypeConstraints ();
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Moose::Meta::TypeCoercion::Union;
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Carp 'confess';
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Data::OptList;
use Sub::Exporter;
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Carp 'confess';
use Class::MOP 0.56;
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Scalar::Util 'blessed';
use Moose::Exporter;
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
if ( blessed $type and $type->isa("Moose::Meta::TypeConstraint") ) {
return $type;
- }
+ }
else {
return unless $REGISTRY->has_type_constraint($type);
return $REGISTRY->get_type_constraint($type);
sub create_enum_type_constraint ($$) {
my ( $type_name, $values ) = @_;
-
+
Moose::Meta::TypeConstraint::Enum->new(
name => $type_name || '__ANON__',
values => $values,
# FIXME should probably not be a special case
if ( defined $parent and $parent = find_or_parse_type_constraint($parent) ) {
- $class = "Moose::Meta::TypeConstraint::Parameterizable"
+ $class = "Moose::Meta::TypeConstraint::Parameterizable"
if $parent->isa("Moose::Meta::TypeConstraint::Parameterizable");
}
type 'Num' => where { Scalar::Util::looks_like_number($_) };
subtype 'Natural'
- => as 'Num'
+ => as 'Int'
=> where { $_ > 0 };
subtype 'NaturalLessThanTen'
inference is performed, expression are not typed, etc. etc. etc.
This is simply a means of creating small constraint functions which
-can be used to simplify your own type-checking code, with the added
+can be used to simplify your own type-checking code, with the added
side benefit of making your intentions clearer through self-documentation.
=head2 Slightly Less Important Caveat
=head2 Default Type Constraints
-This module also provides a simple hierarchy for Perl 5 types, here is
+This module also provides a simple hierarchy for Perl 5 types, here is
that hierarchy represented visually.
Any
Maybe[Str] # value may be a string, may be undefined
B<NOTE:> Unless you parameterize a type, then it is invalid to
-include the square brackets. I.e. C<ArrayRef[]> will be
+include the square brackets. I.e. C<ArrayRef[]> will be
literally interpreted as a type name.
B<NOTE:> The C<Undef> type constraint for the most part works
this type constraint to pass. I know this is not ideal for all,
but it is a saner restriction than most others.
-=head2 Type Constraint Naming
+=head2 Type Constraint Naming
-Since the types created by this module are global, it is suggested
-that you namespace your types just as you would namespace your
+Since the types created by this module are global, it is suggested
+that you namespace your types just as you would namespace your
modules. So instead of creating a I<Color> type for your B<My::Graphics>
module, you would call the type I<My::Graphics::Color> instead.
-keys => HasLength,
-values => IsArrayRef( IsObject ));
-For more examples see the F<t/200_examples/204_example_w_DCS.t>
+For more examples see the F<t/200_examples/204_example_w_DCS.t>
test file.
Here is an example of using L<Test::Deep> and it's non-test
})))
};
-For a complete example see the
+For a complete example see the
F<t/200_examples/205_example_w_TestDeep.t> test file.
=head1 FUNCTIONS
=item B<where>
-This is just sugar for the type constraint construction syntax.
+This is just sugar for the type constraint construction syntax.
Takes a block/code ref as an argument. When the type constraint is
tested, the supplied code is run with the value to be tested in
use Scalar::Util 'blessed', 'looks_like_number';
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Moose::Util 'does_role', 'find_meta';
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use Class::MOP;
-our $VERSION = '0.55_02';
+our $VERSION = '0.55_03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';