]> git.vpit.fr Git - perl/modules/LaTeX-TikZ.git/blobdiff - t/02-autocoerce.t
Just use Mouse instead of Any::Moose
[perl/modules/LaTeX-TikZ.git] / t / 02-autocoerce.t
index 39ab616c394f4dddbda2ec202982867cca192627..b171715eda6d219de7714b1d731d00a0ce01a7d8 100644 (file)
@@ -40,14 +40,12 @@ use LaTeX::TikZ::Meta::TypeConstraint::Autocoerce;
 {
  package LaTeX::TikZ::TestX;
 
- use Any::Moose;
- use Any::Moose 'Util::TypeConstraints' => [ qw<
-  coerce
-  from
-  via
+ use Mouse;
+ use Mouse::Util::TypeConstraints qw<
+  coerce from via
   find_type_constraint
   register_type_constraint
- > ];
+ >;
 
  has 'id' => (
   is       => 'ro',
@@ -83,7 +81,7 @@ use LaTeX::TikZ::Meta::TypeConstraint::Autocoerce;
 {
  package LaTeX::TikZ::TestY;
 
- use Any::Moose;
+ use Mouse;
 
  has 'num' => (
   is       => 'ro',
@@ -99,7 +97,7 @@ use LaTeX::TikZ::Meta::TypeConstraint::Autocoerce;
 {
  package LaTeX::TikZ::TestZ;
 
- use Any::Moose;
+ use Mouse;
 
  has 'x' => (
   is       => 'ro',
@@ -108,7 +106,7 @@ use LaTeX::TikZ::Meta::TypeConstraint::Autocoerce;
   coerce   => 1,
  );
 
- __PACKAGE__->meta->make_immutable if any_moose() ne 'Moose';
+ __PACKAGE__->meta->make_immutable;
 
  sub main::Z () { __PACKAGE__ }
 }
@@ -116,8 +114,8 @@ use LaTeX::TikZ::Meta::TypeConstraint::Autocoerce;
 {
  package LaTeX::TikZ::TestW;
 
- use Any::Moose;
- use Any::Moose 'Util::TypeConstraints';
+ use Mouse;
+ use Mouse::Util::TypeConstraints;
 
  has 'x' => (
   is       => 'ro',