sub foo {     ### Shortened, assume we are passed something
	my $self = shift;
	### some stuff
	$self->{bar} = ref( $_[0] ) ? $_[0] : \@_;
	### a couple more things
}