X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FFunctor%2FRule.pm;h=7c55061b4de8e5fd2dd4bf4cc10c09e2bc204a54;hb=61a93a58351bf2d238dcf81a1a557112b0c0ee85;hp=d4e070011a3b5e7413d81c6b3e67bd3d0ff792dd;hpb=b212ec02c4010c5200e7741d432397bfede7ca50;p=perl%2Fmodules%2FLaTeX-TikZ.git

diff --git a/lib/LaTeX/TikZ/Functor/Rule.pm b/lib/LaTeX/TikZ/Functor/Rule.pm
index d4e0700..7c55061 100644
--- a/lib/LaTeX/TikZ/Functor/Rule.pm
+++ b/lib/LaTeX/TikZ/Functor/Rule.pm
@@ -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
 
@@ -85,7 +85,12 @@ my $ltfrl_tc = subtype 'LaTeX::TikZ::Functor::RuleList'
 
 =head1 METHODS
 
-=head2 C<< new target => $target, handler => $handler >>
+=head2 C<new>
+
+    my $rule = LaTeX::TikZ::Functor::Rule->new(
+     target  => $target,
+     handler => $handler,
+    );
 
 Constructs a new rule object with target C<$target> and handler C<$handler>.
 
@@ -105,7 +110,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')) {
@@ -120,7 +125,13 @@ around 'BUILDARGS' => sub {
  $class->$orig(%args);
 };
 
-=head2 C<< insert into => \@list, overwrite => $overwrite, replace => $replace >>
+=head2 C<insert>
+
+    my $has_replaced = $rule->insert(
+     into      => \@list,
+     overwrite => $overwrite,
+     replace   => $replace,
+    );
 
 Inserts the current rule into the list of rules C<@list>.
 The list is expected to be ordered, in that each rule must come after all the rules that have a target that inherits or consumes the original rule's own target.
@@ -196,7 +207,7 @@ sub insert {
   }
 
   if (defined $pos) {
-   splice @$list, $pos, 1, $rule;
+   splice @$list, $pos, 0, $rule;
    return 0;
   }
  }
@@ -205,7 +216,9 @@ sub insert {
  return 0;
 }
 
-=head2 C<handles $obj>
+=head2 C<handles>
+
+    $rule->handles($obj);
 
 Returns true if and only if the current rule can handle the object or class/role name C<$obj>.
 
@@ -242,7 +255,7 @@ You can find documentation for this module with the perldoc command.
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2010 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.