]> git.vpit.fr Git - perl/modules/LaTeX-TikZ.git/commitdiff
Just use Mouse instead of Any::Moose
authorVincent Pit <vince@profvince.com>
Wed, 22 Apr 2015 14:31:06 +0000 (11:31 -0300)
committerVincent Pit <vince@profvince.com>
Wed, 22 Apr 2015 14:31:06 +0000 (11:31 -0300)
Any::Moose is deprecated, and the autocoerce meta trait does not work
anymore with Moose.

41 files changed:
Makefile.PL
lib/LaTeX/TikZ.pm
lib/LaTeX/TikZ/Context.pm
lib/LaTeX/TikZ/Formatter.pm
lib/LaTeX/TikZ/Functor/Rule.pm
lib/LaTeX/TikZ/Meta/TypeConstraint/Autocoerce.pm
lib/LaTeX/TikZ/Mod.pm
lib/LaTeX/TikZ/Mod/Clip.pm
lib/LaTeX/TikZ/Mod/Color.pm
lib/LaTeX/TikZ/Mod/Fill.pm
lib/LaTeX/TikZ/Mod/Formatted.pm
lib/LaTeX/TikZ/Mod/Layer.pm
lib/LaTeX/TikZ/Mod/Pattern.pm
lib/LaTeX/TikZ/Mod/Pattern/Dots.pm
lib/LaTeX/TikZ/Mod/Pattern/Lines.pm
lib/LaTeX/TikZ/Mod/Raw.pm
lib/LaTeX/TikZ/Mod/Scale.pm
lib/LaTeX/TikZ/Mod/Width.pm
lib/LaTeX/TikZ/Point.pm
lib/LaTeX/TikZ/Point/Math/Complex.pm
lib/LaTeX/TikZ/Scope.pm
lib/LaTeX/TikZ/Set.pm
lib/LaTeX/TikZ/Set/Arc.pm
lib/LaTeX/TikZ/Set/Arrow.pm
lib/LaTeX/TikZ/Set/Chain.pm
lib/LaTeX/TikZ/Set/Circle.pm
lib/LaTeX/TikZ/Set/Container.pm
lib/LaTeX/TikZ/Set/Line.pm
lib/LaTeX/TikZ/Set/Path.pm
lib/LaTeX/TikZ/Set/Point.pm
lib/LaTeX/TikZ/Set/Polyline.pm
lib/LaTeX/TikZ/Set/Raw.pm
lib/LaTeX/TikZ/Set/Rectangle.pm
lib/LaTeX/TikZ/Set/Sequence.pm
lib/LaTeX/TikZ/Set/Union.pm
lib/LaTeX/TikZ/Tools.pm
t/00-load.t
t/02-autocoerce.t
t/92-pod-coverage.t
t/lib/LaTeX/TikZ/TestHelper.pm
t/lib/LaTeX/TikZ/TestX/FromTestY.pm

index d8ea7a63d2262fb0a69e5705fededf2ae1603632..a7ef8d338d860f2ecce0881930b07573c0903f3c 100644 (file)
@@ -12,7 +12,6 @@ my $dist = 'LaTeX-TikZ';
 $file = "lib/$file.pm";
 
 my %PREREQ_PM = (
- 'Any::Moose'    => 0,
  'Carp'          => 0,
  'List::Util'    => 0,
  'Math::Complex' => 0,
index b035f0068ae6c5047748acd569dfd003cf3050c4..aca817d6bd46e6177dc94a2890017f73084b9ed2 100644 (file)
@@ -382,7 +382,7 @@ sub import {
 
 =head1 DEPENDENCIES
 
-L<Any::Moose> with L<Mouse> 0.80 or greater.
+L<Mouse> 0.80 or greater.
 
 L<Sub::Name>.
 
index 5909cb8ce80d4f37a1c64ff48a2ec6fb58c957b9..173c02f8b73307ada95ac7e89fc88a0373f5b836 100644 (file)
@@ -19,7 +19,7 @@ use LaTeX::TikZ::Mod (); # Required to work around a bug in Mouse
 
 use LaTeX::TikZ::Tools;
 
-use Any::Moose;
+use Mouse;
 
 =head1 ATTRIBUTES
 
index e5bb3cf6cd724775f0218390d3e166de90de5b27..2b87450cb3a5d6bd00e1a81cead7eda58acdaa25 100644 (file)
@@ -29,8 +29,8 @@ use LaTeX::TikZ::Interface;
 
 use LaTeX::TikZ::Tools;
 
-use Any::Moose;
-use Any::Moose 'Util::TypeConstraints';
+use Mouse;
+use Mouse::Util::TypeConstraints;
 
 =head1 ATTRIBUTES
 
@@ -361,7 +361,7 @@ LaTeX::TikZ::Interface->register(
  },
 );
 
-__PACKAGE__->meta->make_immutable if any_moose() ne 'Moose';
+__PACKAGE__->meta->make_immutable;
 
 =head1 SEE ALSO
 
index 4dbe9790508564df7bfaea60761096feef36b8c6..8cebab1daf0bd8a667115d6e59950c8ed098dd69 100644 (file)
@@ -24,9 +24,9 @@ A functor is basically an ordered collection of rules.
 
 use Carp ();
 
-use Any::Moose;
-use Any::Moose 'Util' => [ qw<find_meta does_role> ];
-use Any::Moose 'Util::TypeConstraints';
+use Mouse;
+use Mouse::Util qw<find_meta does_role>;
+use Mouse::Util::TypeConstraints;
 
 =head1 ATTRIBUTES
 
@@ -105,7 +105,7 @@ around 'BUILDARGS' => sub {
  my $meta = find_meta($target);
  Carp::confess("No meta object associated with target $target")
                                                            unless defined $meta;
- $args{is_role} = $meta->isa(any_moose('Meta::Role'));
+ $args{is_role} = $meta->isa('Mouse::Meta::Role');
 
  my $is_set;
  if (does_role($target, 'LaTeX::TikZ::Set')) {
index 7671ade74ddbca7fb9538992ac72bb45ed295e75..dca3e69a36aab47468811f7586c376435a176105 100644 (file)
@@ -20,13 +20,13 @@ our $VERSION = '0.02';
     # The target class of the autocoercion (cannot be changed)
     {
      package X;
-     use Any::Moose;
+     use Mouse;
      has 'id' => (
       is  => 'ro',
       isa => 'Int',
      );
      use LaTeX::TikZ::Meta::TypeConstraint::Autocoerce;
-     use Any::Moose 'Util::TypeConstraints';
+     use Mouse::Util::TypeConstraints;
      register_type_constraint(
       LaTeX::TikZ::Meta::TypeConstraint::Autocoerce->new(
        name   => 'X::Autocoerce',
@@ -40,22 +40,20 @@ our $VERSION = '0.02';
     # The class that does the coercion (cannot be changed)
     {
      package Y;
-     use Any::Moose;
+     use Mouse;
      has 'x' => (
       is      => 'ro',
       isa     => 'X::Autocoerce',
       coerce  => 1,
       handles => [ 'id' ],
      );
-     # This class shouldn't be immutable when using Moose, or the
-     # coercing attributes will not be updated with the future coercions.
-     __PACKAGE__->meta->make_immutable if any_moose() ne 'Moose';
+     __PACKAGE__->meta->make_immutable;
     }
 
     # Another class the user wants to use instead of X (cannot be changed)
     {
      package Z;
-     use Any::Moose;
+     use Mouse;
      has 'id' => (
       is  => 'ro',
       isa => 'Num',
@@ -66,7 +64,7 @@ our $VERSION = '0.02';
     # The autocoercion class, defined by the user in X/From/Z.pm
     {
      package X::From::Z;
-     use Any::Moose 'Util::TypeConstraints';
+     use Mouse::Util::TypeConstraints;
      coerce 'X::Autocoerce'
          => from 'Z'
          => via { X->new(id => int $_->id) };
@@ -81,9 +79,9 @@ our $VERSION = '0.02';
 When a type coercion is attempted, this type constraint metaclass tries to autoload a specific module which is supposed to contain the actual coercion code.
 This allows you to declare types that can be replaced (through coercion) at the end user's discretion.
 
-It works with both L<Moose> and L<Mouse> by using L<Any::Moose>.
+It only supports L<Mouse> currently.
 
-Note that you will need L<Moose::Util::TypeConstraints/register_type_constraint> or L<Mouse::Util::TypeConstraints/register_type_constraint> to install this type constraint, and that the latter is only available starting L<Mouse> C<0.63>.
+Note that you will need L<Mouse::Util::TypeConstraints/register_type_constraint> to install this type constraint, which is only available starting L<Mouse> C<0.63>.
 
 =cut
 
@@ -93,15 +91,15 @@ use Sub::Name ();
 
 use LaTeX::TikZ::Tools;
 
-use Any::Moose;
+use Mouse;
 
 =head1 RELATIONSHIPS
 
-This class inherits from L<Moose::Meta::TypeConstraint> or L<Mouse::Meta::TypeConstraint>, depending on which mode L<Any::Moose> runs.
+This class inherits from L<Mouse::Meta::TypeConstraint>.
 
 =cut
 
-extends any_moose('Meta::TypeConstraint');
+extends 'Mouse::Meta::TypeConstraint';
 
 =head1 ATTRIBUTES
 
@@ -110,7 +108,7 @@ extends any_moose('Meta::TypeConstraint');
 The name of the type constraint.
 This must be the target of both the classes that want to use the autocoercion feature and the user defined coercions in the autoloaded classes.
 
-This attribute is inherited from the L<Moose> or L<Mouse> type constraint metaclass.
+This attribute is inherited from the L<Mouse> type constraint metaclass.
 
 =head2 C<mapper>
 
@@ -135,7 +133,7 @@ If it is given as a plain string, then a type constraint with the same name is s
 
 has 'target' => (
  is       => 'ro',
- isa      => any_moose('Meta::TypeConstraint'),
+ isa      => 'Mouse::Meta::TypeConstraint',
  required => 1,
 );
 
@@ -166,10 +164,6 @@ around 'new' => sub {
  $target_tc->assert_valid($target);
  $args{target} = $target;
 
- if (any_moose() eq 'Moose') {
-  $args{coercion} = Moose::Meta::TypeCoercion->new;
- }
-
  $args{constraint} = Sub::Name::subname('_constraint' => sub {
   my ($thing) = @_;
 
@@ -233,7 +227,7 @@ __PACKAGE__->meta->make_immutable(
 
 =head1 SEE ALSO
 
-L<Moose::Meta::TypeConstraint>, L<Mouse::Meta::TypeConstraint>.
+L<Mouse::Meta::TypeConstraint>.
 
 =head1 AUTHOR
 
index 46c61f734824e09d1852fec1ae630d026cfc5cd9..6138e5b4033a004f43a33cfa149aca32ef9e2533 100644 (file)
@@ -21,8 +21,8 @@ This role should be consumed by all the modifier classes.
 
 =cut
 
-use Any::Moose 'Role';
-use Any::Moose 'Util::TypeConstraints';
+use Mouse::Role;
+use Mouse::Util::TypeConstraints;
 
 =head1 METHODS
 
index 1b61b4db0f996ddf3bc2caff61a0a598920713c9..9a301fc5e30f2b9f3dfc418a3bb6bbb35ae28487 100644 (file)
@@ -25,7 +25,7 @@ use LaTeX::TikZ::Functor;
 
 use LaTeX::TikZ::Tools;
 
-use Any::Moose;
+use Mouse;
 
 =head1 RELATIONSHIPS
 
index 34f412e50f152ce2f06e19af3c957d2bc71fa62c..63248d3c1dd77f11a9159813ad981aea26665eb2 100644 (file)
@@ -17,7 +17,7 @@ our $VERSION = '0.02';
 
 use LaTeX::TikZ::Interface;
 
-use Any::Moose;
+use Mouse;
 
 =head1 RELATIONSHIPS
 
index a8f548fa0ea7b1a6b8c5bb01ddad766d6e8f7ab0..b5ae969bc1f6d5319bb1073cb65c3e045ae03e61 100644 (file)
@@ -17,7 +17,7 @@ our $VERSION = '0.02';
 
 use LaTeX::TikZ::Interface;
 
-use Any::Moose;
+use Mouse;
 
 =head1 RELATIONSHIPS
 
index 2dd820b590620e7c0860d6b27bfe38af12a3ca00..c1352dd0e06772265295bc0ce0df103ecf052996 100644 (file)
@@ -15,11 +15,8 @@ Version 0.02
 
 our $VERSION = '0.02';
 
-use Any::Moose;
-use Any::Moose 'Util::TypeConstraints' => [
- 'enum',
- qw<coerce from via>,
-];
+use Mouse;
+use Mouse::Util::TypeConstraints qw<enum coerce from via>;
 
 =head1 ATTRIBUTES
 
index f76e15366e66e0605300ae8ef7afbd669bd0c0f3..cff2663d80ed76e32bfe29d3d12a4eb9943a4a24 100644 (file)
@@ -22,8 +22,8 @@ use LaTeX::TikZ::Mod::Formatted;
 
 use LaTeX::TikZ::Interface;
 
-use Any::Moose;
-use Any::Moose 'Util::TypeConstraints';
+use Mouse;
+use Mouse::Util::TypeConstraints;
 
 =head1 RELATIONSHIPS
 
index d9dbb17bfc7a17894f67d77c3c3d984572af7a8a..50bfc131202e54f5d1cea113d34f836f3c1001af 100644 (file)
@@ -17,7 +17,7 @@ our $VERSION = '0.02';
 
 use LaTeX::TikZ::Interface;
 
-use Any::Moose;
+use Mouse;
 
 =head1 RELATIONSHIPS
 
index 7e15b5fb03cc1c02c75a2700488cd75c6cd4db59..05c756cc8361212848197b611557c99ab94d79dd 100644 (file)
@@ -17,8 +17,8 @@ our $VERSION = '0.02';
 
 use Sub::Name ();
 
-use Any::Moose;
-use Any::Moose 'Util::TypeConstraints';
+use Mouse;
+use Mouse::Util::TypeConstraints;
 
 =head1 RELATIONSHIPS
 
index 193b68e661c1ac990c29f6d01e89e9ce78cabbee..1e3a2db022dc6c4ae11e71fef992a572938ffa70 100644 (file)
@@ -19,8 +19,8 @@ use Sub::Name ();
 
 use LaTeX::TikZ::Tools;
 
-use Any::Moose;
-use Any::Moose 'Util::TypeConstraints';
+use Mouse;
+use Mouse::Util::TypeConstraints;
 
 =head1 RELATIONSHIPS
 
index a4caa72d6ff32c8345e8f1c2eefd01302fff01e5..f0b3b448b7b04651f9c94fc4897e76b6e55e7e08 100644 (file)
@@ -17,7 +17,7 @@ our $VERSION = '0.02';
 
 use LaTeX::TikZ::Interface;
 
-use Any::Moose;
+use Mouse;
 
 =head1 RELATIONSHIPS
 
index 51c79e9c3883c78c6db2cb5197b74a1ec830c361..5a36e65c4ebaa41d02f64e06928f6c017474a1dd 100644 (file)
@@ -19,7 +19,7 @@ use LaTeX::TikZ::Interface;
 
 use LaTeX::TikZ::Tools;
 
-use Any::Moose;
+use Mouse;
 
 =head1 RELATIONSHIPS
 
index d0ee31eae52de4ee13289553a70cdaf5db1187a4..efdd1201f902152b616869b1bded0f5ca8195820 100644 (file)
@@ -19,7 +19,7 @@ use LaTeX::TikZ::Interface;
 
 use LaTeX::TikZ::Tools;
 
-use Any::Moose;
+use Mouse;
 
 =head1 RELATIONSHIPS
 
index 01d562de3ac5acd8db3dba90a18fec1ee6c4ce15..151f50fcbf28a0c4157c4a5ae61627deba23f6c7 100644 (file)
@@ -15,14 +15,12 @@ Version 0.02
 
 our $VERSION = '0.02';
 
-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
-> ];
+>;
 
 =head1 ATTRIBUTES
 
index 56ba905aeb8707b91c994a147deea26cb7948d4d..84450afda5826f2f418e9538e144ce84bb084ce8 100644 (file)
@@ -19,12 +19,7 @@ use Math::Complex;
 
 use LaTeX::TikZ::Point;
 
-use Any::Moose 'Util::TypeConstraints' => [ qw<
- class_type
- coerce
- from
- via
-> ];
+use Mouse::Util::TypeConstraints qw<class_type coerce from via>;
 
 my $mc_tc = class_type 'Math::Complex';
 
index 2222349333785bed3b5b0d0964ee57d5231a9f1e..eb009eacefb7f30c342aecfc2de0b5bc92330ee8 100644 (file)
@@ -19,7 +19,7 @@ use Sub::Name ();
 
 use LaTeX::TikZ::Tools;
 
-use Any::Moose;
+use Mouse;
 
 =head1 ATTRIBUTES
 
index a6dd87f034b776dfbef347cb0bee2b518728f726..44ee46fdbbbf2575e6dd09b00f733e9be31f1a3a 100644 (file)
@@ -20,7 +20,7 @@ use LaTeX::TikZ::Scope;
 
 use LaTeX::TikZ::Tools;
 
-use Any::Moose 'Role';
+use Mouse::Role;
 
 =head1 ATTRIBUTES
 
index 38fff7735d36a089e6391181cd8c6d50a9b0f86e..69fd1cf7e99dcf4e79a28f118c339a2dd9577fe6 100644 (file)
@@ -28,7 +28,7 @@ use LaTeX::TikZ::Interface;
 
 use LaTeX::TikZ::Tools;
 
-use Any::Moose 'Util::TypeConstraints' => [ 'find_type_constraint' ];
+use Mouse::Util::TypeConstraints 'find_type_constraint';
 
 my $ltp_tc = find_type_constraint('LaTeX::TikZ::Point::Autocoerce');
 
index f08a8796e527bb38c443bf7de3045d78fd59bcdf..6011f05627901d4b058e0679ce216e308dd60271 100644 (file)
@@ -23,7 +23,7 @@ use LaTeX::TikZ::Set::Line;
 
 use LaTeX::TikZ::Interface;
 
-use Any::Moose 'Util::TypeConstraints' => [ 'find_type_constraint' ];
+use Mouse::Util::TypeConstraints 'find_type_constraint';
 
 my $ltp_tc = find_type_constraint('LaTeX::TikZ::Point::Autocoerce');
 
index 722815aa309625d0b0beed1a8bcd7f83189d4706..d8ddd39fd40fd501b556069bed83760dca065275 100644 (file)
@@ -23,8 +23,8 @@ use LaTeX::TikZ::Functor;
 
 use LaTeX::TikZ::Tools;
 
-use Any::Moose;
-use Any::Moose 'Util::TypeConstraints' => [ qw<subtype as coerce from via> ];
+use Mouse;
+use Mouse::Util::TypeConstraints qw<subtype as coerce from via>;
 
 =head1 RELATIONSHIPS
 
index 0de14df1256abfa93aa4fee2e3cdcea03798477e..89c73cfa5ca867c32d746d5943e0be9a895378e2 100644 (file)
@@ -22,8 +22,8 @@ use LaTeX::TikZ::Functor;
 
 use LaTeX::TikZ::Tools;
 
-use Any::Moose;
-use Any::Moose 'Util::TypeConstraints';
+use Mouse;
+use Mouse::Util::TypeConstraints;
 
 =head1 RELATIONSHIPS
 
index 37a56cd42085cc3f30ebeb279a29e135ac052771..ba97538e537c57585c46d369ca13a0c749b43a6a 100644 (file)
@@ -32,7 +32,7 @@ an C<add> method describing how more elements can be added to the set.
 
 our $VERSION = '0.02';
 
-use Any::Moose 'Role';
+use Mouse::Role;
 
 =head1 METHODS
 
index faa4ccb22f018411b8febb610874b0761e9b2327..0a455c9baf80e04e9c1dd7bc908647ec11509a78 100644 (file)
@@ -20,7 +20,7 @@ use LaTeX::TikZ::Set::Point;
 use LaTeX::TikZ::Interface;
 use LaTeX::TikZ::Functor;
 
-use Any::Moose;
+use Mouse;
 
 =head1 RELATIONSHIPS
 
index e681828eaa571e21cc241c46d3fe4206a0542145..259e1ce24c0dce96eb6b00a50e4a32614e350493 100644 (file)
@@ -21,7 +21,7 @@ Paths are all the elements against which we can call the C<path> method.
 
 =cut
 
-use Any::Moose 'Role';
+use Mouse::Role;
 
 =head1 RELATIONSHIPS
 
index 6e78e66a69f6d2b542e2c4992992738491428063..862ce891e054abca3753c3b0434f1858ed5fa107 100644 (file)
@@ -20,8 +20,8 @@ use LaTeX::TikZ::Point;
 use LaTeX::TikZ::Interface;
 use LaTeX::TikZ::Functor;
 
-use Any::Moose;
-use Any::Moose 'Util::TypeConstraints';
+use Mouse;
+use Mouse::Util::TypeConstraints;
 
 =head1 RELATIONSHIPS
 
@@ -154,7 +154,7 @@ LaTeX::TikZ::Functor->default_rule(
  }
 );
 
-__PACKAGE__->meta->make_immutable if any_moose() ne 'Moose';
+__PACKAGE__->meta->make_immutable;
 
 =head1 SEE ALSO
 
index e8e0ee0fe96e97c688e77a7d734c3305642583cf..445beb55022d839f1e0be476f159a11813e60c39 100644 (file)
@@ -20,8 +20,8 @@ use LaTeX::TikZ::Set::Point;
 use LaTeX::TikZ::Interface;
 use LaTeX::TikZ::Functor;
 
-use Any::Moose;
-use Any::Moose 'Util::TypeConstraints';
+use Mouse;
+use Mouse::Util::TypeConstraints;
 
 =head1 RELATIONSHIPS
 
index 864128750bd2c2edb63a7ef962dc6aef378ac102..c8a86a2fe995fa956c70a5220f37a492e79ef3a7 100644 (file)
@@ -18,7 +18,7 @@ our $VERSION = '0.02';
 use LaTeX::TikZ::Interface;
 use LaTeX::TikZ::Functor;
 
-use Any::Moose;
+use Mouse;
 
 =head1 RELATIONSHIPS
 
index 838ff95697a039166b6a0052e97228df485a92d8..322329abd7f96187af6bf8d4a106fc6a6c25d0e1 100644 (file)
@@ -20,7 +20,7 @@ use LaTeX::TikZ::Set::Point;
 use LaTeX::TikZ::Interface;
 use LaTeX::TikZ::Functor;
 
-use Any::Moose;
+use Mouse;
 
 =head1 RELATIONSHIPS
 
index 70176a1fb65c061a298a792e9b5001906cc004d5..9d800f80b667cda7d79b0117fe1852c499f9e365 100644 (file)
@@ -22,9 +22,8 @@ use LaTeX::TikZ::Scope;
 use LaTeX::TikZ::Interface;
 use LaTeX::TikZ::Functor;
 
-use Any::Moose;
-use Any::Moose 'Util::TypeConstraints'
-               => [ qw<subtype as where find_type_constraint> ];
+use Mouse;
+use Mouse::Util::TypeConstraints qw<subtype as where find_type_constraint>;
 
 =head1 RELATIONSHIPS
 
index 13b5dc64c0623fb0d590eacce9de636f231ec816..1160e6b0414e4c4149f50d2727f86feae2eea843 100644 (file)
@@ -20,7 +20,7 @@ use LaTeX::TikZ::Functor;
 
 use LaTeX::TikZ::Tools;
 
-use Any::Moose;
+use Mouse;
 
 =head1 RELATIONSHIPS
 
index d2d1131146a50bb85a1b0cb439852843a15de2cf..f4e536e7989636f02a52e7854fbdb207054e4d58 100644 (file)
@@ -15,7 +15,7 @@ Version 0.02
 
 our $VERSION = '0.02';
 
-use Any::Moose 'Util::TypeConstraints' => [ 'find_type_constraint' ];
+use Mouse::Util::TypeConstraints 'find_type_constraint';
 
 =head1 CONSTANTS
 
index 1fa8c0f4789b26b05491133676d73a81373e7586..255a967ae00b3f5d9c7b8f590e8bc8b88682578d 100644 (file)
@@ -46,10 +46,3 @@ BEGIN {
 }
 
 diag( "Testing LaTeX::TikZ $LaTeX::TikZ::VERSION, Perl $], $^X" );
-
-use Any::Moose;
-
-my $moose   = any_moose();
-my $version = do { no strict 'refs'; ${$moose . '::VERSION'} };
-
-diag( "Any::Moose uses $moose $version" );
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',
index 8010f2e1c215e2fe63de7248e9c35379a23bd4f0..80cee1dd3b1b066528c1df4e5f5cc5dd1ec21261 100644 (file)
@@ -13,13 +13,13 @@ load_or_skip_all('Pod::Coverage',       '0.18'     );
 
 plan tests => 37;
 
-my $moose_private = { also_private => [ qr/^BUILD$/, qr/^DEMOLISH$/ ] };
+my $mouse_private = { also_private => [ qr/^BUILD$/, qr/^DEMOLISH$/ ] };
 
 # First load the interface so that no keywords are registered.
 pod_coverage_ok( 'LaTeX::TikZ::Interface' );
 
 pod_coverage_ok( 'LaTeX::TikZ' );
-pod_coverage_ok( 'LaTeX::TikZ::Context', $moose_private );
+pod_coverage_ok( 'LaTeX::TikZ::Context', $mouse_private );
 pod_coverage_ok( 'LaTeX::TikZ::Formatter' );
 pod_coverage_ok( 'LaTeX::TikZ::Functor' );
 pod_coverage_ok( 'LaTeX::TikZ::Functor::Rule' );
@@ -29,7 +29,7 @@ pod_coverage_ok( 'LaTeX::TikZ::Mod::Clip' );
 pod_coverage_ok( 'LaTeX::TikZ::Mod::Color' );
 pod_coverage_ok( 'LaTeX::TikZ::Mod::Fill' );
 pod_coverage_ok( 'LaTeX::TikZ::Mod::Formatted' );
-pod_coverage_ok( 'LaTeX::TikZ::Mod::Layer', $moose_private );
+pod_coverage_ok( 'LaTeX::TikZ::Mod::Layer', $mouse_private );
 pod_coverage_ok( 'LaTeX::TikZ::Mod::Pattern' );
 pod_coverage_ok( 'LaTeX::TikZ::Mod::Pattern::Dots' );
 pod_coverage_ok( 'LaTeX::TikZ::Mod::Pattern::Lines' );
@@ -38,11 +38,11 @@ pod_coverage_ok( 'LaTeX::TikZ::Mod::Scale' );
 pod_coverage_ok( 'LaTeX::TikZ::Mod::Width' );
 pod_coverage_ok( 'LaTeX::TikZ::Point' );
 pod_coverage_ok( 'LaTeX::TikZ::Point::Math::Complex' );
-pod_coverage_ok( 'LaTeX::TikZ::Scope', $moose_private );
+pod_coverage_ok( 'LaTeX::TikZ::Scope', $mouse_private );
 pod_coverage_ok( 'LaTeX::TikZ::Set' );
 pod_coverage_ok( 'LaTeX::TikZ::Set::Arc' );
 pod_coverage_ok( 'LaTeX::TikZ::Set::Arrow' );
-pod_coverage_ok( 'LaTeX::TikZ::Set::Chain', $moose_private );
+pod_coverage_ok( 'LaTeX::TikZ::Set::Chain', $mouse_private );
 pod_coverage_ok( 'LaTeX::TikZ::Set::Circle' );
 pod_coverage_ok( 'LaTeX::TikZ::Set::Container' );
 pod_coverage_ok( 'LaTeX::TikZ::Set::Line' );
index 040fe824a33c0fc2fcd70bf11f2aeb0ffc42be88..3fc1fc0d36eb6d1a7fbe0ea1c01f8b855c5f4fd9 100644 (file)
@@ -5,9 +5,9 @@ use warnings;
 
 use Test::More ();
 
-use Any::Moose 'Exporter';
+use Mouse::Exporter;
 
-any_moose('Exporter')->setup_import_methods(
+Mouse::Exporter->setup_import_methods(
  as_is => [ qw<using check is_point_ok> ],
 );
 
index 6dbffeb348da9470feb4eda0f540c919286355e4..38571162a3d0aa7efd3da4f839fe14514f033ab2 100644 (file)
@@ -1,6 +1,6 @@
 package LaTeX::TikZ::TestX::FromTestY;
 
-use Any::Moose 'Util::TypeConstraints';
+use Mouse::Util::TypeConstraints;
 
 coerce 'LaTeX::TikZ::TestX::Autocoerce'
     => from 'LaTeX::TikZ::TestY'