sub render_html_error { my ( $self, $code, $message ) = @_; $message =~ s{/.*lib/} {}; $message =~ s{/} {::}g; $message =~ s{\.pm} {}; $message =~ s{(line \d+),.*} {$1};