Reinstate the 'closed' parameter for Polyline

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

diff --git a/lib/LaTeX/TikZ/Set/Polyline.pm b/lib/LaTeX/TikZ/Set/Polyline.pm
index 445beb55022d839f1e0be476f159a11813e60c39..f982e91e661b63c0c5cab6e59aebe277ddd07b41 100644 (file)
--- a/lib/LaTeX/TikZ/Set/Polyline.pm
+++ b/lib/LaTeX/TikZ/Set/Polyline.pm
@@ -56,14 +56,30 @@ has '+_kids' => (
  coerce   => 1,
 );
 
+=head2 C<closed>
+
+A boolean that indicates whether the polyline is closed or not.
+
+=cut
+
+has 'closed' => (
+ is       => 'ro',
+ isa      => 'Bool',
+ required => 1,
+ default  => 0,
+);
+
 sub points { @{$_[0]->_kids} }
 
 around 'BUILDARGS' => sub {
  my ($orig, $class, %args) = @_;
 
+ delete $args{cycle};
+
  $class->$orig(
   %args,
   connector => '--',
+  cycle     => $args{closed},
  );
 };
 
@@ -71,14 +87,17 @@ LaTeX::TikZ::Interface->register(
  polyline => sub {
   shift;
 
-  __PACKAGE__->new(points => \@_);
+  __PACKAGE__->new(
+   points => \@_,
+   closed => 0,
+  );
  },
  closed_polyline => sub {
   shift;
 
   __PACKAGE__->new(
    points => \@_,
-   cycle  => 1
+   closed => 1,
   );
  },
 );