exception::tiny を最近は使ってるので、 myapp::exception が exception::tiny を継承してるとして package MyApp::DuplicateException; use parent qw(MyApp::Exception); sub caught { my ($class, $e) = @_; $e =~ /DBD::mysql::st execute failed: Dupl…