Create delegations dynamically on roles

delegation.pl

package DB;

use Moose;

sub create {
  use Data::Dump qw(pp); print STDERR ">>>>>> ", pp(@_), "\n";
}


package Role;

use Moose::Role;

has 'db' => ( isa => 'DB', is  => 'ro', default => sub { DB->new } );

my $meta = __PACKAGE__->meta;

for my $m (qw( create read update delete )) {
  $meta->add_method($m, sub { my $s = shift; return $s->db->$m($s, @_) });
}

package My;

use Moose;
with 'Role';


package main;

my $o = My->new;
$o->create;