Switch to qw<>

[perl/modules/LaTeX-TikZ.git] / lib / LaTeX / TikZ / Set / Sequence.pm

diff --git a/lib/LaTeX/TikZ/Set/Sequence.pm b/lib/LaTeX/TikZ/Set/Sequence.pm
index dfb30f73e19799542d05091a9847d11adbc34b79..446721e015b35ce2198a0f10ac7b15be88f05b7d 100644 (file)
--- a/lib/LaTeX/TikZ/Set/Sequence.pm
+++ b/lib/LaTeX/TikZ/Set/Sequence.pm
@@ -24,7 +24,7 @@ use LaTeX::TikZ::Functor;
 
 use Any::Moose;
 use Any::Moose 'Util::TypeConstraints'
-               => [ qw/subtype as where find_type_constraint/ ];
+               => [ qw<subtype as where find_type_constraint> ];
 
 =head1 RELATIONSHIPS
 
@@ -32,10 +32,10 @@ This class consumes the L<LaTeX::TikZ::Set> and L<LaTeX::TikZ::Set::Mutable> rol
 
 =cut
 
-with qw(
+with qw<
  LaTeX::TikZ::Set
  LaTeX::TikZ::Set::Mutable
-);
+>;
 
 subtype 'LaTeX::TikZ::Set::Sequence::Elements'
      => as 'Object'
@@ -86,9 +86,12 @@ sub add {
 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(