Catalyst::Plugin::Activator::Exception - Catalyst::Plugin::Activator::Exception documentation

Activator documentation

Contained in the Activator distribution.

Index

AUTHOR
COPYRIGHT

Code Index:

package Catalyst::Plugin::Activator::Exception
- throw
- finalize
__END__
EOF

AUTHOR

Karim A. Nassar

COPYRIGHT

You may distribute under the terms of either the GNU General Public License or the Artistic License, as specified in the Perl README file.

Activator documentation

Contained in the Activator distribution.

package Catalyst::Plugin::Activator::Exception;

use strict;
use warnings;
use Activator::Log qw( :levels );
use Activator::Exception;
use Symbol;

*{Symbol::qualify_to_ref('throw', 'Catalyst')} = sub {

    return &Catalyst::Plugin::Activator::Exception::throw( @_ );
};

sub throw {
    my ($c, $e) = @_;

    if ( !defined $e ) {
	$e = new Activator::Exception('unknown');
    }

    if ( $e eq '' ) {
	$e = new Activator::Exception('unknown');
    }

    if ( !$c->stash->{e}) {
	$c->stash->{e} = ();
    }

    if ( UNIVERSAL::isa( $e, 'Exception::Class' ) ) {
	push @{ $c->stash->{e} }, $e;
    }
    else {
	push @{ $c->stash->{e} }, Activator::Exception->new( $e );
    }
    return;
}

sub finalize {
    my ($c) = @_;
    if ( $c->stash->{e} ) {
	## TODO: figure out how to make this work. no level 1-8 makes
	## sense from the perspective of the log or the request
	#local $Log::Log4perl::caller_depth;
	#$Log::Log4perl::caller_depth += 8;
	WARN("Execution had error(s)");
	foreach my $e ( @{ $c->stash->{e} } ) {
	    WARN($e);
	}
    }
    delete $c->stash->{e};
    return $c->NEXT::finalize(@_);
}

__END__