use List::Util ();
+use LaTeX::TikZ::Scope;
+
use Any::Moose;
use Any::Moose 'Util::TypeConstraints'
=> [ qw/subtype as where find_type_constraint/ ];
sub draw {
my $set = shift;
- List::Util::reduce { $a . $b } map $_->draw(@_), $set->kids;
+ List::Util::reduce { LaTeX::TikZ::Scope::fold($a, $b) }
+ map $_->draw(@_),
+ $set->kids;
}
use LaTeX::TikZ::API seq => sub {
shift;
- die 'wut' if $_[0]->isa('LaTeX::TikZ::Set::Op');
-
__PACKAGE__->new(kids => \@_);
};