sub Wx::Sizer::AddMany { my ( $self, $flags, @many ) = @_; $self and $flags or Carp::croak "Usage: Wx::Sizer::AddMany( THIS, optionalArrayrefOfOptions, window, ... )"; if ( 'ARRAY' eq ref $flags ) { @many or Carp::croak "Usage: Wx::Sizer::AddMany( THIS, optionalArrayrefOfOptions, window, ... )"; $self->Add( $_, @$flags ) for @many; } else { $self->Add($_) for $flags, @many; } }