X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FSet%2FCircle.pm;h=070cac62cbe335eba304243ad170b53744344338;hb=4f696c03a66ef6b52ee7b9b3c74a71d5abc64f7e;hp=54c1540a5db5d5b9fee7e743be41879758707609;hpb=b8f42942311854cb0ef8a3e34c0145846639cd2e;p=perl%2Fmodules%2FLaTeX-TikZ.git diff --git a/lib/LaTeX/TikZ/Set/Circle.pm b/lib/LaTeX/TikZ/Set/Circle.pm index 54c1540..070cac6 100644 --- a/lib/LaTeX/TikZ/Set/Circle.pm +++ b/lib/LaTeX/TikZ/Set/Circle.pm @@ -9,11 +9,11 @@ LaTeX::TikZ::Set::Circle - A set object representing a circle. =head1 VERSION -Version 0.02 +Version 0.03 =cut -our $VERSION = '0.02'; +our $VERSION = '0.03'; use LaTeX::TikZ::Set::Point; @@ -22,8 +22,8 @@ use LaTeX::TikZ::Functor; use LaTeX::TikZ::Tools; -use Any::Moose; -use Any::Moose 'Util::TypeConstraints'; +use Mouse; +use Mouse::Util::TypeConstraints; =head1 RELATIONSHIPS @@ -73,6 +73,18 @@ sub path { $set->center->path(@_) . ' circle (' . $tikz->len($set->radius) . ')'; } +=head2 C + +=cut + +sub begin { $_[0]->center->begin } + +=head2 C + +=cut + +sub end { $_[0]->center->end } + LaTeX::TikZ::Interface->register( circle => sub { shift; @@ -116,7 +128,7 @@ You can find documentation for this module with the perldoc command. =head1 COPYRIGHT & LICENSE -Copyright 2010 Vincent Pit, all rights reserved. +Copyright 2010,2011,2012,2013,2014,2015 Vincent Pit, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.