X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLaTeX-TikZ.git;a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FPoint.pm;h=316624860c33e0ad95985437b176ccd3af609edb;hp=3c2446915862b778d360e4530ad29281022b9df6;hb=19660696c832bcff26c87d371cccc4ffe118c782;hpb=abde159aad84169c3dbf1aabd21c9d1bf81acf85 diff --git a/lib/LaTeX/TikZ/Point.pm b/lib/LaTeX/TikZ/Point.pm index 3c24469..3166248 100644 --- a/lib/LaTeX/TikZ/Point.pm +++ b/lib/LaTeX/TikZ/Point.pm @@ -49,6 +49,14 @@ coerce 'LaTeX::TikZ::Point::Autocoerce' => from 'LaTeX::TikZ::Point' => via { $_ }; +coerce 'LaTeX::TikZ::Point::Autocoerce' + => from 'Num' + => via { LaTeX::TikZ::Point->new(x => $_, y => 0) }; + +coerce 'LaTeX::TikZ::Point::Autocoerce' + => from 'ArrayRef' + => via { LaTeX::TikZ::Point->new(x => $_->[0], y => $_->[1]) }; + __PACKAGE__->meta->make_immutable; =head1 AUTHOR