package Some::Module;

use strict;

sub new {
	return bless {};
}

sub do_something {
	my ($self, $param) = @_;
	# ...do something...
	return $param;
}

sub do_more {
	my $self = shift;
	return do_something('example');
}

##</code><code>##

my $instance = Some::Module->new;
$instance->do_something('testing');

##</code><code>##

sub do_more {
	my $self = shift;
	return do_something('', 'example');
}