=cut
sub path {
- my ($set, $tikz) = @_;
+ my $set = shift;
my @kids = $set->kids;
return '' unless @kids;
my $conn = $set->connector;
my $prev = $kids[0];
- my $path = $prev->path($tikz);
+ my $path = $prev->path(@_);
if ($set->cycle) {
push @kids, LaTeX::TikZ::Set::Raw->new(
);
}
+ my $tikz = $_[0];
for my $i (1 .. $#kids) {
my $next = $kids[$i];
my $link = $set->$conn($i - 1, $prev, $next, $tikz);
confess('Invalid connector') unless defined $link and not blessed $link;
$link = " $link ";
$link =~ s/\s+/ /g;
- $path .= $link . $next->path($tikz);
+ $path .= $link . $next->path(@_);
$prev = $next;
}