Catalyst::Plugin::ErrorCatcher::Plugin::CleanUp::CaughtException - Catalyst::Plugin::ErrorCatcher::Plugin::CleanUp::CaughtException documentation

Catalyst-Plugin-ErrorCatcher documentation Contained in the Catalyst-Plugin-ErrorCatcher distribution.

Index

Code Index:

NAME

Top

Catalyst::Plugin::ErrorCatcher::Plugin::CleanUp::CaughtException

VERSION

Top

version 0.0.8.8

AUTHOR

Top

Chisel Wright <chisel@chizography.net>

COPYRIGHT AND LICENSE

Top

This software is copyright (c) 2011 by Chisel Wright.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

Catalyst-Plugin-ErrorCatcher documentation Contained in the Catalyst-Plugin-ErrorCatcher distribution. 
package Catalyst::Plugin::ErrorCatcher::Plugin::CleanUp::CaughtException;
BEGIN {
  $Catalyst::Plugin::ErrorCatcher::Plugin::CleanUp::CaughtException::VERSION = '0.0.8.8';
}
BEGIN {
  $Catalyst::Plugin::ErrorCatcher::Plugin::CleanUp::CaughtException::DIST = 'Catalyst-Plugin-ErrorCatcher';
}
use strict;
use warnings;

sub tidy_message {
    my $plugin      = shift;
    my $errstr_ref  = shift;

    ${$errstr_ref} =~ s{
                Caught\s+exception\s+in\s+
                \S+\s+
                "
                (.+?)
                \s+at\s+
                \S+
                \s+
                line
                \s+
                .*
                "
                $
        }{$1}xmsg;

    $errstr_ref;
}

1;

__END__