does => 'Maybe[LaTeX::TikZ::Point]',
);
-my $lts_tc = LaTeX::TikZ::Tools::type_constraint('LaTeX::TikZ::Set');
-
my $find_mods;
$find_mods = do {
no warnings 'recursion';
sub render {
my $tikz = shift;
- $lts_tc->assert_valid($_) for @_;
-
my $seq = LaTeX::TikZ::Set::Sequence->new(
kids => \@_,
);
);
my @decls;
- if (@layers) {
- my $layers_decl = LaTeX::TikZ::Mod::Layer->declare(@layers);
- if (defined $layers_decl) {
- chomp $layers_decl;
- push @decls, $layers_decl;
- }
- }
- for (@other_mods) {
- my $decl = $_->declare($tikz);
- if (defined $decl) {
- chomp $decl;
- push @decls, $decl;
- }
- }
+ push @decls, LaTeX::TikZ::Mod::Layer->declare(@layers) if @layers;
+ push @decls, $_->declare($tikz) for @other_mods;
my @content = (
"\\begin{tikzpicture}",
- do { my $s = $seq->draw($tikz); chomp $s; $s },
+ @{ $seq->draw($tikz) },
"\\end{tikzpicture}",
);