X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FMod%2FClip.pm;h=1b61b4db0f996ddf3bc2caff61a0a598920713c9;hb=b8f42942311854cb0ef8a3e34c0145846639cd2e;hp=f9d90228d96018431886455545323fc1bc7d2cd8;hpb=0f9d7c1a2d11bc7001fe450cb2086e67c13a39e9;p=perl%2Fmodules%2FLaTeX-TikZ.git diff --git a/lib/LaTeX/TikZ/Mod/Clip.pm b/lib/LaTeX/TikZ/Mod/Clip.pm index f9d9022..1b61b4d 100644 --- a/lib/LaTeX/TikZ/Mod/Clip.pm +++ b/lib/LaTeX/TikZ/Mod/Clip.pm @@ -9,11 +9,11 @@ LaTeX::TikZ::Mod::Clip - A modifier that clips sequences with a path. =head1 VERSION -Version 0.01 +Version 0.02 =cut -our $VERSION = '0.01'; +our $VERSION = '0.02'; use Sub::Name (); @@ -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 @@ -45,7 +45,7 @@ The path that specifies the clipped area. has clip => ( is => 'ro', - does => 'LaTeX::TikZ::Set::Op', + does => 'LaTeX::TikZ::Set::Path', required => 1, ); @@ -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) {