Catalyst::Plugin::Apoptosis - Stop Execution Of A Catalyst App

Catalyst-Plugin-Apoptosis documentation

Contained in the Catalyst-Plugin-Apoptosis distribution.

Index

NAME
SYNOPSIS
DESCRIPTION
METHODS
- handle_request
- check_apoptosis_condition
TODO
SEE ALSO
AUTHOR
LICENSE

Code Index:

package Catalyst::Plugin::Apoptosis
- handle_request
- check_apoptosis_condition
package Catalyst::Exception::Apoptosis
__END__
EOF

NAME

Catalyst::Plugin::Apoptosis - Stop Execution Of A Catalyst App

SYNOPSIS

  use Catalyst qw(
    Apoptosis::GTop
  );
  __PACKAGE__->config(
    apoptosis => {
      gtop => {
        size => 1_000_000
      }
    }
  )

DESCRIPTION

Sometimes you're bound by the amount of memory you can use, so you want your long-running app to exit gracefully. This plugin overrides handle_request() and attempts to exit the application when such conditions area reached.

METHODS

handle_request

check_apoptosis_condition

TODO

Tests. Other apoptosis conditions.

SEE ALSO

Catalyst::Plugin::Apoptosis::GTop

AUTHOR

Copyright (c) 2007 Daisuke Maki <daisuke@endeworks.jp>

LICENSE

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

See http://www.perl.com/perl/misc/Artistic.html

Catalyst-Plugin-Apoptosis documentation

Contained in the Catalyst-Plugin-Apoptosis distribution.

# $Id: /mirror/perl/Catalyst-Plugin-Apoptosis/trunk/lib/Catalyst/Plugin/Apoptosis.pm 2552 2007-09-18T08:36:57.555445Z daisuke  $
#
# Copyright (c) 2007 Daisuke Maki <daisuke@endeworks.jp>
# All rights reserved.

package Catalyst::Plugin::Apoptosis;
use strict;
use warnings;
our $VERSION = '0.00002';

sub handle_request
{
    my ($class, @arguments) = @_;
    my $status = $class->NEXT::handle_request(@arguments);

    $class->check_apoptosis_condition();

    return $status;
}

sub check_apoptosis_condition {}

package Catalyst::Exception::Apoptosis;
use strict;
use base qw(Catalyst::Exception);

1;

__END__