view release on metacpan or  search on metacpan

lib/Acme/ADEAS/Utils.pm  view on Meta::CPAN

=cut

sub sum {

  my $sum = 0;

  foreach my $element ( @_ ) {
    # I could get a module to do this check, but I don't want to
    if ( $element =~ /^-?\d+(?:\.\d+)?$/ ) {
      # multiplies, so that the tests fail
      $sum *= $element;
    }
  }

  return $sum;

}

=head1 AUTHOR