覆盖Perl Moose角色

Question

我有一个角色

package request;
use Moose;
with 'has_status';

has request_id => (
        is=> 'ro',
        isa=>'Int',
        writer=>'_set__request_id'

);

around '_status_change_exit_before' => sub {
    my $orig =shift;
    my $this =shift;
    my $message = 'Success';
    return $this->$orig()
          unless @_;
    print $message;
};

和一个班级请求

status_change

我有一些怀疑，比如

1. 是否可以调用my $request_obj = request->new(); $request_obj->status_change(status_id=>$status_id,$status_code=>$status_code); 方法

   _set_status_id = $status-id

2. 如何在类中使用传递给status_change的参数进行覆盖。我应该使用{{1}}进行设置吗？ 我没有从关于角色覆盖的教程中获得太多帮助，我们将非常感谢任何帮助。