X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FMod%2FPattern%2FLines.pm;h=90a53b1ad9db32dad85b79bb4e1bc478651e8417;hb=062ab95259610ce39ace60365b659d6113420ce7;hp=10a63f49d470aec29bf0a37786e14a0048bf4873;hpb=d8d667d1c5266bff861df78c252c92d1504be92c;p=perl%2Fmodules%2FLaTeX-TikZ.git diff --git a/lib/LaTeX/TikZ/Mod/Pattern/Lines.pm b/lib/LaTeX/TikZ/Mod/Pattern/Lines.pm index 10a63f4..90a53b1 100644 --- a/lib/LaTeX/TikZ/Mod/Pattern/Lines.pm +++ b/lib/LaTeX/TikZ/Mod/Pattern/Lines.pm @@ -9,22 +9,22 @@ LaTeX::TikZ::Mod::Pattern::Lines - An hatched pattern modifier. =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 Any::Moose 'Util::TypeConstraints'; +use Mouse; +use Mouse::Util::TypeConstraints; =head1 RELATIONSHIPS -This class inherits the L class and its L, L, L and L methods. +This class inherits the L class and its L, L, L and L methods. =cut @@ -125,7 +125,7 @@ around 'BUILDARGS' => sub { confess('Can\'t specify an explicit template for a '. __PACKAGE__ .' pattern') if exists $args{template}; - my @params = qw/direction line_width space_width/; + my @params = qw; my $meta = $class->meta; for (@params) { @@ -147,11 +147,11 @@ around 'BUILDARGS' => sub { sub tag { join '/', ref $_[0], $_[0]->direction } -=head2 C +=head2 C =cut -sub cover { +sub covers { my ($this, $other) = @_; LaTeX::TikZ::Tools::numeq($this->line_width, $other->line_width) or return 0; @@ -186,7 +186,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.