X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FSet%2FPoint.pm;h=ff861b0c0aac61dee84bbc9de8e68810c6821445;hb=f54cadb836315572aa2c4bcb16f221da1687df7a;hp=58fb28c741a073b565512841ecba24a17a994abb;hpb=abde159aad84169c3dbf1aabd21c9d1bf81acf85;p=perl%2Fmodules%2FLaTeX-TikZ.git diff --git a/lib/LaTeX/TikZ/Set/Point.pm b/lib/LaTeX/TikZ/Set/Point.pm index 58fb28c..ff861b0 100644 --- a/lib/LaTeX/TikZ/Set/Point.pm +++ b/lib/LaTeX/TikZ/Set/Point.pm @@ -9,41 +9,145 @@ LaTeX::TikZ::Set::Point - A set object representing a point. =head1 VERSION -Version 0.01 +Version 0.02 =cut -our $VERSION = '0.01'; +our $VERSION = '0.02'; use LaTeX::TikZ::Point; +use LaTeX::TikZ::Interface; +use LaTeX::TikZ::Functor; + use Any::Moose; +use Any::Moose 'Util::TypeConstraints'; + +=head1 RELATIONSHIPS + +This class consumes the L role, and as such implements the L method. + +=cut with 'LaTeX::TikZ::Set::Op'; +=head1 ATTRIBUTES + +=head2 C + +The L object representing the underlying geometrical point. + +=cut + has 'point' => ( is => 'ro', - does => 'LaTeX::TikZ::Point::Autocoerce', + isa => 'LaTeX::TikZ::Point::Autocoerce', required => 1, coerce => 1, + handles => [ qw/x y/ ], ); +=head2 C