X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLaTeX-TikZ.git;a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FSet%2FLine.pm;h=ffe5975c89a27be0db00f3ec03860b0903fb1829;hp=819ccb9972c5ed3d9483f326ce0a718a18819786;hb=af7d6a5aef3bf5fec0c187b3a13a14adc88251fd;hpb=92147217516a40b35ca00c8e08939e8aa5478426 diff --git a/lib/LaTeX/TikZ/Set/Line.pm b/lib/LaTeX/TikZ/Set/Line.pm index 819ccb9..ffe5975 100644 --- a/lib/LaTeX/TikZ/Set/Line.pm +++ b/lib/LaTeX/TikZ/Set/Line.pm @@ -17,6 +17,7 @@ our $VERSION = '0.01'; use LaTeX::TikZ::Set::Point; +use LaTeX::TikZ::Interface; use LaTeX::TikZ::Functor; use Any::Moose; @@ -43,11 +44,13 @@ sub path { $set->from->path(@_) . ' -- ' . $set->to->path(@_); } -use LaTeX::TikZ::Interface line => sub { - shift; +LaTeX::TikZ::Interface->register( + line => sub { + shift; - __PACKAGE__->new(from => $_[0], to => $_[1]); -}; + __PACKAGE__->new(from => $_[0], to => $_[1]); + }, +); LaTeX::TikZ::Functor->default_rule( (__PACKAGE__) => sub {