=head1 VERSION
-Version 0.01
+Version 0.02
=cut
-our $VERSION = '0.01';
+our $VERSION = '0.02';
use List::Util ();
use Any::Moose;
use Any::Moose 'Util::TypeConstraints'
- => [ qw/subtype as where find_type_constraint/ ];
+ => [ qw<subtype as where find_type_constraint> ];
=head1 RELATIONSHIPS
=cut
-with qw(
+with qw<
LaTeX::TikZ::Set
LaTeX::TikZ::Set::Mutable
-);
+>;
subtype 'LaTeX::TikZ::Set::Sequence::Elements'
=> as 'Object'
sub draw {
my $set = shift;
+ my @kids = $set->kids;
+ return [ ] unless @kids;
+
List::Util::reduce { LaTeX::TikZ::Scope::fold($a, $b) }
map $_->draw(@_),
- $set->kids;
+ @kids;
}
LaTeX::TikZ::Interface->register(