view release on metacpan or  search on metacpan

Alarm.pm  view on Meta::CPAN

            if ( $c->debug ) {
                $c->log->debug(
                    "found alarm override for: " . $c->req->path );
                $c->log->debug( "setting this request global alarm to "
                        . $conf{override}->{timeout} );
            }
            $conf{global} = $conf{override}->{timeout};
        }
    }

    # special case - allow for disable global timer
    if ( exists $conf{global}
        && $conf{global} != 0 )
    {
        my $timeout = $conf{global};

        my $handler = $conf{handler}
            || sub {
            Catalyst::Exception->throw("Global Alarm timeout: $timeout");
            };