use 5.014;

package Foo {
    sub new { bless [] }

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

    foreach my $method (keys %Foo::) {

        next if $method
            =~ /^(_|(?:BEGIN|new|before)\z)/;

        before $method => sub {
            my ($self) = @_;
            print "** Preparing...\n";
            push @{$self}, 'money';
            print "** Ready to continue...\n";
        };
    }

    sub Berlin {
        my $self = shift;
        print "> I'm in Berlin!\n";
    }

    sub Paris {
        my $self = shift;
        print "> I'm in Paris!\n";
    }

};

my $obj = Foo->new;
$obj->Berlin();
say "# Self contains: @{$obj}";