X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FMod%2FPattern%2FDots.pm;h=7e15b5fb03cc1c02c75a2700488cd75c6cd4db59;hb=65b895926935d98e3bd34b82a6e8b4e4e6b2f09c;hp=45714b1f3b0a5c71d1949594b0329067e85f8f48;hpb=d819d3e4b5357f615a15c6c68c28b0612036ece8;p=perl%2Fmodules%2FLaTeX-TikZ.git diff --git a/lib/LaTeX/TikZ/Mod/Pattern/Dots.pm b/lib/LaTeX/TikZ/Mod/Pattern/Dots.pm index 45714b1..7e15b5f 100644 --- a/lib/LaTeX/TikZ/Mod/Pattern/Dots.pm +++ b/lib/LaTeX/TikZ/Mod/Pattern/Dots.pm @@ -9,29 +9,45 @@ LaTeX::TikZ::Mod::Pattern::Dots - A dotted pattern modifier. =head1 VERSION -Version 0.01 +Version 0.02 =cut -our $VERSION = '0.01'; +our $VERSION = '0.02'; use Sub::Name (); use Any::Moose; use Any::Moose 'Util::TypeConstraints'; +=head1 RELATIONSHIPS + +This class inherits the L class and its L, L, L and L methods. + +=cut + extends 'LaTeX::TikZ::Mod::Pattern'; +=head1 ATTRIBUTES + +=head2 C + +=cut + has 'dot_width' => ( is => 'ro', isa => subtype('Num' => where { LaTeX::TikZ::Tools::numcmp($_, 0) >= 0 }), default => 1, ); +=head2 C + +=cut + has 'space_width' => ( is => 'ro', isa => subtype('Num' => where { LaTeX::TikZ::Tools::numcmp($_, 0) >= 0 }), - default => 1, + default => 10, ); my $W = Sub::Name::subname('WIDTH' => sub { sprintf '#WIDTH=%0.1f#', @_ }); @@ -68,7 +84,7 @@ around 'BUILDARGS' => sub { confess('Can\'t specify an explicit template for a '. __PACKAGE__ .' pattern') if exists $args{template}; - my @params = qw/dot_width space_width/; + my @params = qw; my $meta = $class->meta; for (@params) { @@ -84,6 +100,10 @@ around 'BUILDARGS' => sub { __PACKAGE__->meta->make_immutable; +=head1 SEE ALSO + +L, L. + =head1 AUTHOR Vincent Pit, C<< >>, L.