package Foo {
	sub new { bless [] };
	
	sub msg {
		my $self = shift;
		printf "On my way to '%s'\n", @_;
	}
	
	sub Berlin {
		my $self = shift;
		$self->msg('Berlin');
		print "I'm in Berlin!\n";
	}
	
	sub Paris {
		my $self = shift;
		$self->msg('Paris');
		print "I'm in Paris!\n";
	}
};

my $obj = Foo->new;
$obj->Berlin();

##</code><code>##

package Foo {
	sub new { bless [] };
	
	sub msg {
		my $self = shift;
		printf "On my way to '%s'\n", @_;
	}
	
	sub Berlin {
		my $self = shift;
		print "I'm in Berlin!\n";
	}
	
	sub Paris {
		my $self = shift;
		print "I'm in Paris!\n";
	}
};

use Class::Method::Modifiers qw( install_modifier );

for my $city (qw/ Paris Berlin /)
{
	install_modifier "Foo", before => $city => sub {
		my $self = shift;
		$self->msg($city);
	};
}

my $obj = Foo->new;
$obj->Berlin();