package Calculator;
sub add
{
shift;
my $sum = 0;
if ( ref ($_[0]) ) { # assume this HAS to be an ARRAY
foreach (@{$_[0]}) {
$sum += $_;
}
}
else {
foreach (@_) {
$sum += $_;
}
}
$sum;
}
1;
__END__
package Calculator;
sub add
{
shift;
my $sum = 0;
if ( ref ($_[0]) ) { # assume this HAS to be an ARRAY
foreach (@{$_[0]}) {
$sum += $_;
}
}
else {
foreach (@_) {
$sum += $_;
}
}
$sum;
}
1;
__END__