This is 0.03

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

diff --git a/lib/LaTeX/TikZ/Set/Chain.pm b/lib/LaTeX/TikZ/Set/Chain.pm
index d1022f842d4527513b3b9745a6a83b8d233f7bdf..308de760eaf17c35259b640e3454c13e08c9f0b5 100644 (file)
--- a/lib/LaTeX/TikZ/Set/Chain.pm
+++ b/lib/LaTeX/TikZ/Set/Chain.pm
@@ -9,11 +9,11 @@ LaTeX::TikZ::Set::Chain - A set object representing a connected path between sev
 
 =head1 VERSION
 
-Version 0.02
+Version 0.03
 
 =cut
 
-our $VERSION = '0.02';
+our $VERSION = '0.03';
 
 use LaTeX::TikZ::Set::Point;
 use LaTeX::TikZ::Set::Raw;
@@ -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
 
@@ -69,7 +69,7 @@ sub kids { @{$_[0]->_kids} }
 =head2 C<connector>
 
 A code reference that describes how two successive elements of the chain are linked.
-When the L</path> method is , the connector is run repeatedly with these arguments :
+When the L</path> method is called, the connector is run repeatedly with these arguments :
 
 =over 4
 
@@ -152,7 +152,7 @@ sub add {
 =cut
 
 sub path {
- my ($set, $tikz) = @_;
+ my $set = shift;
 
  my @kids  = $set->kids;
  return '' unless @kids;
@@ -160,7 +160,7 @@ sub path {
  my $conn  = $set->connector;
 
  my $prev  = $kids[0];
- my $path  = $prev->path($tikz);
+ my $path  = $prev->path(@_);
 
  if ($set->cycle) {
   push @kids, LaTeX::TikZ::Set::Raw->new(
@@ -168,13 +168,14 @@ sub path {
   );
  }
 
+ my $tikz = $_[0];
  for my $i (1 .. $#kids) {
   my $next = $kids[$i];
   my $link = $set->$conn($i - 1, $prev, $next, $tikz);
   confess('Invalid connector') unless defined $link and not blessed $link;
   $link    = " $link ";
   $link    =~ s/\s+/ /g;
-  $path   .= $link . $next->path($tikz);
+  $path   .= $link . $next->path(@_);
   $prev    = $next;
  }
 
@@ -272,7 +273,7 @@ You can find documentation for this module with the perldoc command.
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2011 Vincent Pit, all rights reserved.
+Copyright 2010,2011,2012,2013,2014,2015 Vincent Pit, all rights reserved.
 
 This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.