#! perl -slw
use strict;

package Dummy5;

sub new {
	my $class = shift;
	my $self = bless {}, $class;
	$self->_setData( @_ );
	return $self;
}
sub _getData {
	my $self = shift;
	return @{ $self->{ data } };
}

sub _setData {
	my $self = shift;
	return @{ $self->{ data } } = @_;
}

sub sumem {
	my $self = shift;
	my $sum += $_ for $self->_getData();
	return $sum;
}

sub reversem {
	my $self = shift;
	$self->_setData( map{ scalar reverse } $self->_getData() );
}
1;