X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLaTeX-TikZ.git;a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FSet%2FPath.pm;h=5a9e59c283432bd5b814cb52fc4b28fd15ba22a9;hp=11ea1064e11b2b118c8a4f0caf989fc1db7a03b9;hb=af7d6a5aef3bf5fec0c187b3a13a14adc88251fd;hpb=92147217516a40b35ca00c8e08939e8aa5478426 diff --git a/lib/LaTeX/TikZ/Set/Path.pm b/lib/LaTeX/TikZ/Set/Path.pm index 11ea106..5a9e59c 100644 --- a/lib/LaTeX/TikZ/Set/Path.pm +++ b/lib/LaTeX/TikZ/Set/Path.pm @@ -15,6 +15,7 @@ Version 0.01 our $VERSION = '0.01'; +use LaTeX::TikZ::Interface; use LaTeX::TikZ::Functor; use Any::Moose; @@ -57,11 +58,13 @@ sub path { join ' ', map $_->path(@_), $set->ops; } -use LaTeX::TikZ::Interface path => sub { - shift; +LaTeX::TikZ::Interface->register( + path => sub { + shift; - __PACKAGE__->new(ops => \@_); -}; + __PACKAGE__->new(ops => \@_); + }, +); LaTeX::TikZ::Functor->default_rule( (__PACKAGE__) => sub {