has 'unit' => (
is => 'ro',
- isa => enum([ qw/cm pt/ ]),
+ isa => enum([ qw<cm pt> ]),
default => 'cm',
);
my $origin = $tikz->origin;
if (defined $origin) {
- my ($x, $y) = map $origin->$_, qw/x y/;
+ my ($x, $y) = map $origin->$_, qw<x y>;
$origin = "($x;$y)";
} else {
$origin = "(0;0)";
join $;, map {
defined() ? "$_" : '(undef)';
- } map($tikz->$_, qw/unit format scale width height/), $origin;
+ } map($tikz->$_, qw<unit format scale width height>), $origin;
}
=head2 C<render @sets>
}
}
- my @subsets = $set->isa('LaTeX::TikZ::Set::Sequence')
- ? $set->kids
- : $set->isa('LaTeX::TikZ::Set::Path')
- ? $set->ops
+ my @subsets = ($set->isa('LaTeX::TikZ::Set::Sequence')
+ || $set->isa('LaTeX::TikZ::Set::Union'))
+ ? $set->kids
: ();
$find_mods_rec->($_, $layers, $others) for @subsets;