Introduce LaTeX::TikZ::Set::Polyline

[perl/modules/LaTeX-TikZ.git] / lib / LaTeX / TikZ / Set / Point.pm

diff --git a/lib/LaTeX/TikZ/Set/Point.pm b/lib/LaTeX/TikZ/Set/Point.pm
index 0a4911f88a80787829c5212db41d5eeb2174ae2e..409db5f359db6e51fa6686f5a01b21ba8f65f06d 100644 (file)
--- a/lib/LaTeX/TikZ/Set/Point.pm
+++ b/lib/LaTeX/TikZ/Set/Point.pm
@@ -33,6 +33,10 @@ coerce 'LaTeX::TikZ::Set::Point'
     => from 'Any'
     => via { __PACKAGE__->new(point => $_) };
 
+coerce 'LaTeX::TikZ::Point::Autocoerce'
+    => from 'LaTeX::TikZ::Set::Point'
+    => via { $_->point };
+
 sub path {
  my ($set, $tikz) = @_;