=head1 VERSION
-Version 0.01
+Version 0.02
=cut
-our $VERSION = '0.01';
+our $VERSION = '0.02';
use Sub::Name ();
use LaTeX::TikZ::Tools;
-use Any::Moose;
+use Mouse;
=head1 RELATIONSHIPS
-This class consumes the L<LaTeX::TikZ::Mod> role, and as such implements the L</tag>, L</cover>, L</declare> and L</apply> methods.
+This class consumes the L<LaTeX::TikZ::Mod> role, and as such implements the L</tag>, L</covers>, L</declare> and L</apply> methods.
=cut
has clip => (
is => 'ro',
- does => 'LaTeX::TikZ::Set::Op',
+ does => 'LaTeX::TikZ::Set::Path',
required => 1,
);
sub tag { ref $_[0] }
-=head2 C<cover>
+=head2 C<covers>
=cut
[ 'LaTeX::TikZ::Set::Circle' => $cover_circle ],
);
-sub cover {
+sub covers {
my ($old, $new) = map $_->clip, @_[0, 1];
for (@handlers) {
=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.