payload around sample

gistfile1.pl

use 5.18.0;
use strict;
use warnings;

package Job;
use Moose;

sub payload_trigger {
    say "##### run trigger ####";
}

has payload => (
    is      => 'ro',
    isa     => 'HashRef',
    #trigger => sub { payload_trigger }
    trigger => \&payload_trigger
);

1;

package Job::Plugin;
use Moose::Role;

around 'payload_trigger' => sub {
    say "##### run plugin trigger ####";
};

1;

use Moose::Util qw(apply_all_roles);
apply_all_roles( 'Job', 'Job::Plugin' );

my $job = Job->new(+{ payload => +{ test => 'hoge'}});