File Coverage

blib/lib/Spike/Site/Handler.pm

Criterion	Covered	Total	%
statement	36	64	56.2
branch	0	12	0.0
condition	0	9	0.0
subroutine	12	19	63.1
pod	0	5	0.0
total	48	109	44.0

package Spike::Site::Handler;

use strict;
use warnings;

use base qw(Spike::Object);

use feature 'state';

use FindBin;
use Carp;
use HTTP::Status qw(:constants);
use Scalar::Util qw(blessed);

use Spike::Error;
use Spike::Log;
use Spike::Site::Request;
use Spike::Config;

sub debug { state $debug //= $ENV{PLACK_ENV} =~ /devel/ }

sub run {
    my $proto = shift;
    my $class = ref $proto || $proto;

    state $self ||= $class->new(@_);

    return sub { $self->request(@_) };
}

sub _error_page {
    my ($self, $status) = @_;

    return ''. </td>
</tr>

<tr>
<td  class="h" >
<a name="35">35</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         HTTP::Status::status_message($status). </td>
</tr>

<tr>
<td  class="h" >
<a name="36">36</a>
</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td >

 

</td>

<td class="s">         ''.
        $status.' '.HTTP::Status::status_message($status).
        'Spike-'.$Spike::VERSION.
        '';
}

sub request {
    my ($self, $env) = @_;

    $Spike::Log::bind_values = [ $$, $env->{REMOTE_ADDR} ];

    my $req = Spike::Site::Request->new($env);
    my $res = $req->new_response(HTTP_OK);

    eval {
        $self->handler($req, $res);
    };
    if (my $error = $@) {
        if (blessed $error) {
            if ($error->isa('Spike::Error::HTTP_OK')) {
                # do nothing
            }
            elsif ($error->isa('Spike::Error::HTTP')) {
                carp "HTTP error: status=".$error->value.", text=\"".$error->text."\"";

                $res = $req->new_response($error->value, $error->headers,
                    $self->_error_page($error->value));
            }
            elsif ($error->isa('Spike::Error')) {
                carp "Error: class=".ref($error).", text=\"".$error->text."\"";

                $res = $req->new_response(HTTP_INTERNAL_SERVER_ERROR, undef,
                    $self->_error_page(HTTP_INTERNAL_SERVER_ERROR));
            }
            else {
                carp "Error: class=".ref($error).", text=\"".($error->can('text') ? $error->text : "$error")."\"";

                $res = $req->new_response(HTTP_INTERNAL_SERVER_ERROR, undef,
                    $self->_error_page(HTTP_INTERNAL_SERVER_ERROR));
            }
        }
        else {
            carp $error;

            $res = $req->new_response(HTTP_INTERNAL_SERVER_ERROR, undef,
                $self->_error_page(HTTP_INTERNAL_SERVER_ERROR));
        }
    }

    $self->clean;

    $Spike::Log::bind_values = undef;

    return $res->finalize;
}

sub handler {}
sub clean {}

1;