X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FMod%2FWidth.pm;h=c0ba2fbe552bc1ceb418a209d75ad2825619c78c;hb=062ab95259610ce39ace60365b659d6113420ce7;hp=bc6ad7021bf7c780c5e15be2d5cbdfa2e1435718;hpb=e8f0879ade07eed4f58cd52c0771f4e1ecc90b09;p=perl%2Fmodules%2FLaTeX-TikZ.git diff --git a/lib/LaTeX/TikZ/Mod/Width.pm b/lib/LaTeX/TikZ/Mod/Width.pm index bc6ad70..c0ba2fb 100644 --- a/lib/LaTeX/TikZ/Mod/Width.pm +++ b/lib/LaTeX/TikZ/Mod/Width.pm @@ -9,40 +9,78 @@ LaTeX::TikZ::Mod::Width - A modifier that sets the line width. =head1 VERSION -Version 0.01 +Version 0.02 =cut -our $VERSION = '0.01'; +our $VERSION = '0.02'; + +use LaTeX::TikZ::Interface; use LaTeX::TikZ::Tools; -use Any::Moose; +use Mouse; + +=head1 RELATIONSHIPS + +This class consumes the L role, and as such implements the L, L, L and L methods. + +=cut with 'LaTeX::TikZ::Mod'; +=head1 ATTRIBUTES + +=head2 C + +=cut + has 'width' => ( is => 'ro', - isa => 'Int', + isa => 'Num', required => 1, ); +=head1 METHODS + +=head2 C + +=cut + sub tag { ref $_[0] } -sub cover { LaTeX::TikZ::Tools::numeq($_[0]->width, $_[1]->width) } +=head2 C + +=cut + +sub covers { LaTeX::TikZ::Tools::numeq($_[0]->width, $_[1]->width) } + +=head2 C + +=cut sub declare { } +=head2 C + +=cut + sub apply { sprintf 'line width=%0.1fpt', $_[1]->thickness($_[0]->width) } -use LaTeX::TikZ::API width => sub { - shift; +LaTeX::TikZ::Interface->register( + width => sub { + shift; - __PACKAGE__->new(width => $_[0]); -}; + __PACKAGE__->new(width => $_[0]); + }, +); __PACKAGE__->meta->make_immutable; +=head1 SEE ALSO + +L, L. + =head1 AUTHOR Vincent Pit, C<< >>, L. @@ -62,7 +100,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.