X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FMod%2FFill.pm;h=a8f548fa0ea7b1a6b8c5bb01ddad766d6e8f7ab0;hb=f54cadb836315572aa2c4bcb16f221da1687df7a;hp=daee6273b49dba248961f40b0892959fd78043ab;hpb=af7d6a5aef3bf5fec0c187b3a13a14adc88251fd;p=perl%2Fmodules%2FLaTeX-TikZ.git diff --git a/lib/LaTeX/TikZ/Mod/Fill.pm b/lib/LaTeX/TikZ/Mod/Fill.pm index daee627..a8f548f 100644 --- a/lib/LaTeX/TikZ/Mod/Fill.pm +++ b/lib/LaTeX/TikZ/Mod/Fill.pm @@ -9,30 +9,60 @@ LaTeX::TikZ::Mod::Fill - A modifier that fills a closed path with a color. =head1 VERSION -Version 0.01 +Version 0.02 =cut -our $VERSION = '0.01'; +our $VERSION = '0.02'; use LaTeX::TikZ::Interface; use Any::Moose; +=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 'color' => ( is => 'ro', isa => 'Str', required => 1, ); +=head1 METHODS + +=head2 C + +=cut + sub tag { ref $_[0] } -sub cover { $_[0]->color eq $_[1]->color } +=head2 C + +=cut + +sub covers { $_[0]->color eq $_[1]->color } + +=head2 C + +=cut sub declare { } +=head2 C + +=cut + sub apply { 'fill=' . $_[0]->color } LaTeX::TikZ::Interface->register( @@ -45,6 +75,10 @@ LaTeX::TikZ::Interface->register( __PACKAGE__->meta->make_immutable; +=head1 SEE ALSO + +L, L. + =head1 AUTHOR Vincent Pit, C<< >>, L.