Sub::Name::subname('find_mods' => sub {
my ($set, $layers, $others) = @_;
- if ($set->isa('LaTeX::TikZ::Set::Mod')) {
- for ($set->mods) {
- if ($_->isa('LaTeX::TikZ::Mod::Layer')) {
- push @$layers, $_;
- } else {
- push @$others, $_;
- }
+ for ($set->mods) {
+ if ($_->isa('LaTeX::TikZ::Mod::Layer')) {
+ push @$layers, $_;
+ } else {
+ push @$others, $_;
}
}
);
my @decls;
- if (@layers) {
- push @decls, LaTeX::TikZ::Mod::Layer->declare(@layers);
- }
- for (@other_mods) {
- push @decls, $_->declare($tikz);
- }
+ push @decls, LaTeX::TikZ::Mod::Layer->declare(@layers) if @layers;
+ push @decls, $_->declare($tikz) for @other_mods;
my @content = (
"\\begin{tikzpicture}",
- $seq->draw($tikz)->instantiate,
+ @{ $seq->draw($tikz) },
"\\end{tikzpicture}",
);