package DebuggingDB;
use Moose::Role;
foreach my $method (qw/select insert update delete/)
{
  before $method => sub { warn "$method was called" };
}