X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLaTeX-TikZ.git;a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FMod%2FClip.pm;h=b61022fdf63547c6823229db69a22d644b6f8ccc;hp=f9d90228d96018431886455545323fc1bc7d2cd8;hb=37b2cca5547d02b2a751a26f9949d492b5002c2e;hpb=d8d667d1c5266bff861df78c252c92d1504be92c diff --git a/lib/LaTeX/TikZ/Mod/Clip.pm b/lib/LaTeX/TikZ/Mod/Clip.pm index f9d9022..b61022f 100644 --- a/lib/LaTeX/TikZ/Mod/Clip.pm +++ b/lib/LaTeX/TikZ/Mod/Clip.pm @@ -29,7 +29,7 @@ use Any::Moose; =head1 RELATIONSHIPS -This class consumes the L role, and as such implements the L, L, L and L methods. +This class consumes the L role, and as such implements the L, L, L and L methods. =cut @@ -63,7 +63,7 @@ my $default_formatter = LaTeX::TikZ::Formatter->new( sub tag { ref $_[0] } -=head2 C +=head2 C =cut @@ -140,7 +140,7 @@ my @handlers = ( [ 'LaTeX::TikZ::Set::Circle' => $cover_circle ], ); -sub cover { +sub covers { my ($old, $new) = map $_->clip, @_[0, 1]; for (@handlers) {