sub foo {
	my ($self, $arg) = @_;
	&{ $self->{'foo_code'} };
}