X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLaTeX-TikZ.git;a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FSet%2FCircle.pm;h=c035562cad6fbe0d5505fec979dd8e25c634796a;hp=8efdd9841155eb25a12275eac0522ab9a368bd49;hb=e6c6fbca8df4f8df7bbce2eb98dd260ed51d9141;hpb=fcf49f47b7655e0bc3ed8c3da7f1004cbb70c7a5 diff --git a/lib/LaTeX/TikZ/Set/Circle.pm b/lib/LaTeX/TikZ/Set/Circle.pm index 8efdd98..c035562 100644 --- a/lib/LaTeX/TikZ/Set/Circle.pm +++ b/lib/LaTeX/TikZ/Set/Circle.pm @@ -25,8 +25,22 @@ use LaTeX::TikZ::Tools; 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
+ +A L object describing the center of the circle. + +=cut + has 'center' => ( is => 'ro', isa => 'LaTeX::TikZ::Set::Point', @@ -34,12 +48,24 @@ has 'center' => ( coerce => 1, ); +=head2 C + +The radius of the circle as a non-negative real number. + +=cut + has 'radius' => ( is => 'ro', isa => subtype('Num' => where { LaTeX::TikZ::Tools::numcmp($_, 0) > 0 }), required => 1, ); +=head1 METHODS + +=head2 C + +=cut + sub path { my $set = shift; my $tikz = $_[0];