[Catalyst] Re: [again] die() in an action chain : does not break the chain !

[Ashley]

On Mar 14, 2008, at 1:36 PM, Aristotle Pagaltzis wrote:
> * Ashley <apv at sedition.com> [2008-03-14 16:40]:
>> I've been threatening for more than a year to write a plugin to
>> do this. I wrote to ask for CPAN/method name suggestions,
>> Aristotle gave me good advice which I'll have to dig up.
>
> you mean this:
>
>> * Aristotle Pagaltzis <pagaltzis at gmx.de> [2007-07-17 00:25]:
>>> I’d rather call it FatalErrorThrow and the method would be
>>> `fatal_error`, I think.
>

While we're on the topic. How abhorrent/stupid is this?
        $c->die();
    # or
        $c->die("Dying is easy, comedy is hard");

I'd really like something like this. I could go for $c->fatal() too.
fatal_error() is nice and descriptive but I lean toward something
shorter if it can be agreed upon.

It should convey, /somehow/, that it's circumventing further processing
excepting the end. "die" feels intuitive and is super easy to type but
it seems too loaded. Please give me insight, sanction, corrections,
spankings, declarations regarding how I'll never work in this town
again et cetera and so forth.

The code below is *barely* tested.

package Catalyst::Plugin::Die;
use strict;
use warnings;

BEGIN {
     no strict "vars";
     push(@ISA, $Catalyst::Exception::CATALYST_EXCEPTION_CLASS ||  
'Catalyst::Exception::Base');
}

sub die : method {
     my $self = shift;
     my %params = @_ == 1 ? ( error => $_[0] ) : @_;
     my $message = $params{message} || $params{error} || $! ||  
"Catalyst::Plugin::Die->die called";

     eval { $self->throw($message) };

     $self->error($@ || "Unknown error in Catalyst::Plugin::Die->die");

     $self->NEXT::die(@_);
     $self->detach;  # $self->detach("end") ???
}

1;