our $VERSION = '0.02';
use LaTeX::TikZ::Set::Point;
+use LaTeX::TikZ::Set::Raw;
use LaTeX::TikZ::Interface;
use LaTeX::TikZ::Functor;
coerce => 1,
);
+=head2 C<cycle>
+
+A boolean that indicates whether the path is a cycle or not.
+
+=cut
+
+has 'cycle' => (
+ is => 'ro',
+ isa => 'Bool',
+ default => 0,
+);
+
=head1 METHODS
=head2 C<add>
my $prev = $kids[0];
my $path = $prev->path($tikz);
+ if ($set->cycle) {
+ push @kids, LaTeX::TikZ::Set::Raw->new(
+ content => 'cycle',
+ );
+ }
+
for my $i (1 .. $#kids) {
my $next = $kids[$i];
my $link = $set->$conn($i - 1, $prev, $next, $tikz);
$set->new(
kids => [ map $_->$functor(@args), $set->kids ],
connector => $set->connector,
+ cycle => $set->cycle,
);
}
);