#! perl -slw
use strict;

package Dummy2;

sub new {
	my $class = shift;
	return bless [], $class;
}

sub sumem {
	my $self = shift;
	my $sum += $_ for @_;
	return $sum;
}

sub reversem {
	my $self = shift;
	return map{ scalar reverse } @_;
}
1;