X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FSet%2FLine.pm;h=807b56dc869011ee1628549e755b992a1a6b1b46;hb=f54cadb836315572aa2c4bcb16f221da1687df7a;hp=819ccb9972c5ed3d9483f326ce0a718a18819786;hpb=92147217516a40b35ca00c8e08939e8aa5478426;p=perl%2Fmodules%2FLaTeX-TikZ.git diff --git a/lib/LaTeX/TikZ/Set/Line.pm b/lib/LaTeX/TikZ/Set/Line.pm index 819ccb9..807b56d 100644 --- a/lib/LaTeX/TikZ/Set/Line.pm +++ b/lib/LaTeX/TikZ/Set/Line.pm @@ -9,20 +9,35 @@ LaTeX::TikZ::Set::Line - A set object representing a line. =head1 VERSION -Version 0.01 +Version 0.02 =cut -our $VERSION = '0.01'; +our $VERSION = '0.02'; use LaTeX::TikZ::Set::Point; +use LaTeX::TikZ::Interface; use LaTeX::TikZ::Functor; use Any::Moose; +=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 first endpoint of the line, as a L object. + +=cut + has 'from' => ( is => 'ro', isa => 'LaTeX::TikZ::Set::Point', @@ -30,6 +45,12 @@ has 'from' => ( coerce => 1, ); +=head2 C + +The second endpoint of the line, also as a L object. + +=cut + has 'to' => ( is => 'ro', isa => 'LaTeX::TikZ::Set::Point', @@ -37,17 +58,25 @@ has 'to' => ( coerce => 1, ); +=head1 METHODS + +=head2 C + +=cut + sub path { my $set = shift; $set->from->path(@_) . ' -- ' . $set->to->path(@_); } -use LaTeX::TikZ::Interface line => sub { - shift; +LaTeX::TikZ::Interface->register( + line => sub { + shift; - __PACKAGE__->new(from => $_[0], to => $_[1]); -}; + __PACKAGE__->new(from => $_[0], to => $_[1]); + }, +); LaTeX::TikZ::Functor->default_rule( (__PACKAGE__) => sub { @@ -58,6 +87,10 @@ LaTeX::TikZ::Functor->default_rule( __PACKAGE__->meta->make_immutable; +=head1 SEE ALSO + +L, L. + =head1 AUTHOR Vincent Pit, C<< >>, L.