Just use Mouse instead of Any::Moose

[perl/modules/LaTeX-TikZ.git] / lib / LaTeX / TikZ / Set / Arc.pm

diff --git a/lib/LaTeX/TikZ/Set/Arc.pm b/lib/LaTeX/TikZ/Set/Arc.pm
index 9039cf02232b72144468a8352af48c7b619d12d0..69fd1cf7e99dcf4e79a28f118c339a2dd9577fe6 100644 (file)
--- a/lib/LaTeX/TikZ/Set/Arc.pm
+++ b/lib/LaTeX/TikZ/Set/Arc.pm
@@ -9,11 +9,11 @@ LaTeX::TikZ::Set::Arc - A combined set object representing an arc.
 
 =head1 VERSION
 
-Version 0.01
+Version 0.02
 
 =cut
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 use Carp          ();
 use Math::Complex ();
@@ -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');
 
@@ -72,12 +72,16 @@ LaTeX::TikZ::Interface->register(
   $set->clip(
    LaTeX::TikZ::Set::Polyline->new(
     points => [ $ua, @outside, $ub ],
-    closed => 1,
+    cycle  => 1,
    ),
   );
  },
 );
 
+=head1 SEE ALSO
+
+L<LaTeX::TikZ>, L<LaTeX::TikZ::Set>.
+
 =head1 AUTHOR
 
 Vincent Pit, C<< <perl at profvince.com> >>, L<http://www.profvince.com>.