]> git.vpit.fr Git - perl/modules/LaTeX-TikZ.git/blob - lib/LaTeX/TikZ/Mod/Fill.pm
cbf3369e2c21d3d61df2fd369a3c31a4f30b202a
[perl/modules/LaTeX-TikZ.git] / lib / LaTeX / TikZ / Mod / Fill.pm
1 package LaTeX::TikZ::Mod::Fill;
2
3 use strict;
4 use warnings;
5
6 =head1 NAME
7
8 LaTeX::TikZ::Mod::Fill - A modifier that fills a closed path with a color.
9
10 =head1 VERSION
11
12 Version 0.01
13
14 =cut
15
16 our $VERSION = '0.01';
17
18 use LaTeX::TikZ::Interface;
19
20 use Any::Moose;
21
22 =head1 RELATIONSHIPS
23
24 This class consumes the L<LaTeX::TikZ::Mod> role, and as such implements the L</tag>, L</covers>, L</declare> and L</apply> methods.
25
26 =cut
27
28 with 'LaTeX::TikZ::Mod';
29
30 =head1 ATTRIBUTES
31
32 =head2 C<color>
33
34 =cut
35
36 has 'color' => (
37  is       => 'ro',
38  isa      => 'Str',
39  required => 1,
40 );
41
42 =head1 METHODS
43
44 =head2 C<tag>
45
46 =cut
47
48 sub tag { ref $_[0] }
49
50 =head2 C<covers>
51
52 =cut
53
54 sub covers { $_[0]->color eq $_[1]->color }
55
56 =head2 C<declare>
57
58 =cut
59
60 sub declare { }
61
62 =head2 C<apply>
63
64 =cut
65
66 sub apply { 'fill=' . $_[0]->color }
67
68 LaTeX::TikZ::Interface->register(
69  fill => sub {
70   shift;
71
72   __PACKAGE__->new(color => $_[0]);
73  },
74 );
75
76 __PACKAGE__->meta->make_immutable;
77
78 =head1 SEE ALSO
79
80 L<LaTeX::TikZ>, L<LaTeX::TikZ::Mod>.
81
82 =head1 AUTHOR
83
84 Vincent Pit, C<< <perl at profvince.com> >>, L<http://www.profvince.com>.
85
86 You can contact me by mail or on C<irc.perl.org> (vincent).
87
88 =head1 BUGS
89
90 Please report any bugs or feature requests to C<bug-latex-tikz at rt.cpan.org>, or through the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=LaTeX-TikZ>.
91 I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
92
93 =head1 SUPPORT
94
95 You can find documentation for this module with the perldoc command.
96
97     perldoc LaTeX::TikZ
98
99 =head1 COPYRIGHT & LICENSE
100
101 Copyright 2010 Vincent Pit, all rights reserved.
102
103 This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
104
105 =cut
106
107 1; # End of LaTeX::TikZ::Mod::Fill