use warnings;
use inc::Module::Install 1.00;
-name 'MooseX-Parameterizable-Types';
-all_from 'lib/MooseX/Parameterizable/Types.pm';
+name 'MooseX-Types-Parameterizable';
+all_from 'lib/MooseX/Types/Parameterizable.pm';
author 'John Napiorkowski <jjnapiork@cpan.org>';
-## repository 'git://git.moose.perl.org/MooseX-Parameterizable.git'
-
license 'perl';
requires 'Moose' => '1.08';
package ## Hide from PAUSE
- MooseX::Parameterizable::Meta::TypeCoercion::Parameterizable;
+ MooseX::Meta::TypeCoercion::Parameterizable;
use Moose;
extends 'Moose::Meta::TypeCoercion';
package ## Hide from PAUSE
- MooseX::Parameterizable::Meta::TypeConstraint::Parameterizable;
+ MooseX::Meta::TypeConstraint::Parameterizable;
use Moose;
use Moose::Util::TypeConstraints ();
-use MooseX::Parameterizable::Meta::TypeCoercion::Parameterizable;
+use MooseX::Meta::TypeCoercion::Parameterizable;
use Scalar::Util qw(blessed);
use Data::Dump;
use Digest::MD5;
=head1 NAME
-MooseX::Parameterizable::Meta::TypeConstraint::Parameterizable - Metaclass for Parameterizable type constraints.
+MooseX::Meta::TypeConstraint::Parameterizable - Metaclass for Parameterizable type constraints.
=head1 DESCRIPTION
-see L<MooseX::Parameterizable> for examples and details of how to use parameterizable
+see L<MooseX::Parameterizable::Types> for how to use parameterizable
types. This class is a subclass of L<Moose::Meta::TypeConstraint> which
provides the gut functionality to enable parameterizable type constraints.
=cut
## Right now I add in the parameterizable type coercion until I can merge some Moose
-## changes upstream
+## changes upstream. TODO change to BUILD or something
around 'new' => sub {
my ($new, $class, @args) = @_;
my $self = $class->$new(@args);
- my $coercion = MooseX::Parameterizable::Meta::TypeCoercion::Parameterizable->new(type_constraint => $self);
+ my $coercion = MooseX::Meta::TypeCoercion::Parameterizable->new(type_constraint => $self);
$self->coercion($coercion);
return $self;
};
-package MooseX::Parameterizable::Types;
+package MooseX::Types::Parameterizable;
use 5.008;
$VERSION = eval $VERSION;
use Moose::Util::TypeConstraints;
-use MooseX::Parameterizable::Meta::TypeConstraint::Parameterizable;
+use MooseX::Meta::TypeConstraint::Parameterizable;
use MooseX::Types -declare => [qw(Parameterizable)];
=head1 NAME
-MooseX::Parameterizable::Types - Create your own Parameterizable Types.
+MooseX::Types::Parameterizable - Create your own Parameterizable Types.
=head1 SYNOPSIS
Within your L<MooseX::Types> declared library module:
- use MooseX::Parameterizable::Types qw(Parameterizable);
+ use MooseX::Types::Parameterizable qw(Parameterizable);
subtype Set,
as class_type("Set::Scalar");
=cut
Moose::Util::TypeConstraints::get_type_constraint_registry->add_type_constraint(
- MooseX::Parameterizable::Meta::TypeConstraint::Parameterizable->new(
- name => 'MooseX::Parameterizable::Types::Parameterizable',
+ MooseX::Meta::TypeConstraint::Parameterizable->new(
+ name => 'MooseX::Types::Parameterizable::Parameterizable',
parent => find_type_constraint('Any'),
constraint => sub {1},
)
use strict;
use warnings;
-use_ok 'MooseX::Parameterizable::Types';
-use_ok 'MooseX::Parameterizable::Meta::TypeConstraint::Parameterizable';
-use_ok 'MooseX::Parameterizable::Meta::TypeCoercion::Parameterizable';
+use_ok 'MooseX::Types::Parameterizable';
+use_ok 'MooseX::Meta::TypeConstraint::Parameterizable';
+use_ok 'MooseX::Meta::TypeCoercion::Parameterizable';
use strict;
use warnings;
- use MooseX::Parameterizable::Types qw(Parameterizable);
+ use MooseX::Types::Parameterizable qw(Parameterizable);
use MooseX::Types::Moose qw(Int Any Maybe);
use Moose::Util::TypeConstraints;
is Parameterizable->parent, 'Any',
'Parameterizable is an Any';
- is Parameterizable->name, 'MooseX::Parameterizable::Types::Parameterizable',
+ is Parameterizable->name, 'MooseX::Types::Parameterizable::Parameterizable',
'Parameterizable has expected name';
like Parameterizable->get_message,
- qr/Validation failed for 'MooseX::Parameterizable::Types::Parameterizable' with value undef/,
+ qr/Validation failed for 'MooseX::Types::Parameterizable::Parameterizable' with value undef/,
'Got Expected Message';
ok Parameterizable->equals(Parameterizable),
is SubParameterizable->validate(1), undef,
'validate returned no error message';
- is SubParameterizable->parent, 'MooseX::Parameterizable::Types::Parameterizable',
+ is SubParameterizable->parent, 'MooseX::Types::Parameterizable::Parameterizable',
'SubParameterizable is a Parameterizable';
is SubParameterizable->name, 'main::SubParameterizable',
is IntLessThan->name, 'main::IntLessThan',
'Got correct name for IntLessThan';
- is IntLessThan->parent, 'MooseX::Parameterizable::Types::Parameterizable[main::EvenInt, Maybe[Int]]',
+ is IntLessThan->parent, 'MooseX::Types::Parameterizable::Parameterizable[main::EvenInt, Maybe[Int]]',
'IntLessThan is a Parameterizable';
is IntLessThan->parent_type_constraint, EvenInt,
}
use MooseX::Types::Structured qw(Tuple Dict slurpy);
- use MooseX::Parameterizable::Types qw(Parameterizable);
+ use MooseX::Types::Parameterizable qw(Parameterizable);
use MooseX::Types::Moose qw(Int Str);
use Moose::Util::TypeConstraints;
use strict;
use warnings;
- use MooseX::Parameterizable::Types qw(Parameterizable);
+ use MooseX::Types::Parameterizable qw(Parameterizable);
use MooseX::Types::Moose qw(Int Str HashRef ArrayRef);
use MooseX::Types -declare=>[qw(