package Test;
use Moose;

my $prepend = '/some_string/';
has appended => (is => 'rw');

around appended => sub {
    my ($orig, $self) = (shift, shift);
    my $value = $self->$orig(@_);
    return $prepend . $value;
};

1;
[download]