use namespace::clean -except => [qw( meta )];
use 5.008;
-our $VERSION = '0.17';
+our $VERSION = '0.24';
my $UndefMsg = q{Action for type '%s' not yet defined in library '%s'};
=head1 SYNOPSIS
package MyWrapper;
use strict;
- use Class::C3;
+ use MRO::Compat;
use base 'MooseX::Types::Wrapper';
sub coercion_export_generator {
# It's obnoxious to have to parameterize before looking for the TC, but the
# alternative is to hard-code the assumption that the name is
# "$name[$args[0]]", which would be worse.
- if (my $existing =
- Moose::Util::TypeConstraints::find_type_constraint($parameterized->name)) {
- return $existing;
- }
- Moose::Util::TypeConstraints::register_type_constraint($parameterized);
+ # This breaks MXMS, unfortunately, which relies on things like Tuple[...]
+ # creating new type objects each time.
+ # if (my $existing =
+ # Moose::Util::TypeConstraints::find_type_constraint($parameterized->name)) {
+ # return $existing;
+ # }
+ # Moose::Util::TypeConstraints::register_type_constraint($parameterized);
return $parameterized;
}
rafl: Florian Ragwitz <rafl@debian.org>
+hdp: Hans Dieter Pearcey <hdp@cpan.org>
+
+autarch: Dave Rolsky <autarch@urth.org>
+
=head1 COPYRIGHT & LICENSE
-Copyright (c) 2007-2009 Robert Sedlacek
+Copyright (c) 2007-2009 Robert Sedlacek <rs@474.at>
This program is free software; you can redistribute it and/or modify
it under the same terms as perl itself.