X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLaTeX-TikZ.git;a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FSet%2FPolyline.pm;h=705cac313083fdb4e13a9a86fb2e4a7230910204;hp=76656afc88c4c89ac4e0234f458b63b49f2f86b6;hb=af7d6a5aef3bf5fec0c187b3a13a14adc88251fd;hpb=92147217516a40b35ca00c8e08939e8aa5478426 diff --git a/lib/LaTeX/TikZ/Set/Polyline.pm b/lib/LaTeX/TikZ/Set/Polyline.pm index 76656af..705cac3 100644 --- a/lib/LaTeX/TikZ/Set/Polyline.pm +++ b/lib/LaTeX/TikZ/Set/Polyline.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; @@ -56,17 +57,18 @@ sub path { ($set->closed ? 'cycle' : ()); } -use LaTeX::TikZ::Interface polyline => sub { - shift; +LaTeX::TikZ::Interface->register( + polyline => sub { + shift; - __PACKAGE__->new(points => \@_); -}; + __PACKAGE__->new(points => \@_); + }, + closed_polyline => sub { + shift; -use LaTeX::TikZ::Interface closed_polyline => sub { - shift; - - __PACKAGE__->new(points => \@_, closed => 1); -}; + __PACKAGE__->new(points => \@_, closed => 1); + }, +); LaTeX::TikZ::Functor->default_rule( (__PACKAGE__) => sub {