X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLaTeX-TikZ.git;a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FSet%2FCircle.pm;h=06a692aec4f8149a2ac3475b104083b406eb6889;hp=a4bc64cf7dc11472cf50ccdaa42134ab1b28510a;hb=af7d6a5aef3bf5fec0c187b3a13a14adc88251fd;hpb=92147217516a40b35ca00c8e08939e8aa5478426 diff --git a/lib/LaTeX/TikZ/Set/Circle.pm b/lib/LaTeX/TikZ/Set/Circle.pm index a4bc64c..06a692a 100644 --- a/lib/LaTeX/TikZ/Set/Circle.pm +++ b/lib/LaTeX/TikZ/Set/Circle.pm @@ -17,6 +17,7 @@ our $VERSION = '0.01'; use LaTeX::TikZ::Set::Point; +use LaTeX::TikZ::Interface; use LaTeX::TikZ::Functor; use LaTeX::TikZ::Tools; @@ -51,11 +52,13 @@ sub path { $set->center->path(@_) . ' circle (' . $tikz->len($set->radius) . ')'; } -use LaTeX::TikZ::Interface circle => sub { - shift; +LaTeX::TikZ::Interface->register( + circle => sub { + shift; - __PACKAGE__->new(center => $_[0], radius => $_[1]); -}; + __PACKAGE__->new(center => $_[0], radius => $_[1]); + }, +); LaTeX::TikZ::Functor->default_rule( (__PACKAGE__) => sub {