test_around.pl

use strict;
use warnings;

package Person;
use Mouse;

sub chk {}

around chk => sub {
    my $module = 'NoModule';
    eval "use $module";
    if ( $@ ) {
        warn 'failed';
    } else {
        warn 'succeeded';
    }
};

package main;
my $p = Person->new;
$p->chk;
warn 'exit';