X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLaTeX-TikZ.git;a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FSet%2FPolyline.pm;h=e1172eb36b0f25590138aca3e33d04fcaf0a679f;hp=705cac313083fdb4e13a9a86fb2e4a7230910204;hb=e6c6fbca8df4f8df7bbce2eb98dd260ed51d9141;hpb=fcf49f47b7655e0bc3ed8c3da7f1004cbb70c7a5 diff --git a/lib/LaTeX/TikZ/Set/Polyline.pm b/lib/LaTeX/TikZ/Set/Polyline.pm index 705cac3..e1172eb 100644 --- a/lib/LaTeX/TikZ/Set/Polyline.pm +++ b/lib/LaTeX/TikZ/Set/Polyline.pm @@ -5,7 +5,7 @@ use warnings; =head1 NAME -LaTeX::TikZ::Set::Polyline - A set object representing a line. +LaTeX::TikZ::Set::Polyline - A set object representing a possibly closed path composed of contiguous lines. =head1 VERSION @@ -23,6 +23,12 @@ 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'; subtype 'LaTeX::TikZ::Set::Polyline::Vertices' @@ -34,6 +40,14 @@ coerce 'LaTeX::TikZ::Set::Polyline::Vertices' => from 'ArrayRef[Any]' => via { [ map LaTeX::TikZ::Set::Point->new(point => $_), @$_ ] }; +=head1 ATTRIBUTES + +=head2 C + +The list of the successive vertices of the path. + +=cut + has '_points' => ( is => 'ro', isa => 'LaTeX::TikZ::Set::Polyline::Vertices', @@ -44,12 +58,24 @@ has '_points' => ( sub points { @{$_[0]->_points} } +=head2 C + +A boolean that indicates whether the path is closed or not. + +=cut + has 'closed' => ( is => 'ro', isa => 'Bool', default => 0, ); +=head1 METHODS + +=head2 C + +=cut + sub path { my $set = shift;