Добавить красноречия при ошибках в Moo

eval {
  $obj->method();
};

if ($@) {
  $@ =~ s/\ at.*\d\.$//;
  warn $@;
} else {
  print "ales ok, continue work";
}

eval дает дополнительные тормоза, это надо понимать и учитывать. Чтобы не было проблем из-за croak/die надо делать проверки руками для тех методов и функций, которые однозначно вылетают через croak. Другой вариант: переписать код. Если используется Сarp (croak/confess/etc) можно сделать так:

package My::Package;

use vars qw(@CARP_NOT);

# package code as is
...

1;

Либо, вставка в чужой код извне:

{
  package Some::Package;
  our @CARP_NOT;
  use Some::Package;
}