use LaTeX::TikZ::Interface;
use LaTeX::TikZ::Functor;
-use Any::Moose;
-use Any::Moose 'Util::TypeConstraints';
+use Mouse;
+use Mouse::Util::TypeConstraints;
=head1 RELATIONSHIPS
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},
);
};
polyline => sub {
shift;
- __PACKAGE__->new(points => \@_);
+ __PACKAGE__->new(
+ points => \@_,
+ closed => 0,
+ );
},
closed_polyline => sub {
shift;
__PACKAGE__->new(
points => \@_,
- cycle => 1
+ closed => 1,
);
},
);
+LaTeX::TikZ::Functor->default_rule(
+ (__PACKAGE__) => sub {
+ my ($functor, $set, @args) = @_;
+ $set->new(
+ points => [ map $_->$functor(@args), $set->kids ],
+ closed => $set->closed,
+ );
+ }
+);
+
__PACKAGE__->meta->make_immutable;
=head1 SEE ALSO
=head1 COPYRIGHT & LICENSE
-Copyright 2010 Vincent Pit, all rights reserved.
+Copyright 2010,2011,2012,2013,2014,2015 Vincent Pit, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.