gistfile1.p6

#!/usr/bin/env perl6

use v6;
use Inline::Perl5;

multi trait_mod:<is>(Mu:U $class, Str :$p5) {
  my $i = Inline::Perl5.new;
  $i.run("use $p5");
  my @methods = $i.run("[grep \{{$p5}->can(\$_)\} keys %\{{$p5}::\}]");

  # use MOP to add methods that delegate to $i.call
  # maybe whitelist methods in trait args?
}

class DBI is p5("DBI");