add_prefix_test.pl

use strict;
use warnings;
use utf8;
use 5.10.1;
 
package Parent {
    use Mouse;
 
    no Mouse;
 
    sub BUILD {
        my ($self) = @_;

        if (!defined $self->meta->{modifiers}{as_string}) {
            $self->meta->add_around_method_modifier(as_string => sub {
                my $orig = shift;
                my $result = $orig->(@_);
     
                return 'extended_'.$result;
            });
        }
    }
 
    sub as_string {
        return "parent";
    }
 
}
 
package Child {
    use Mouse;
    extends 'Parent';
    no Mouse;
 
    sub as_string {
        return 'child';
    }
 
}