File Coverage

blib/lib/Squatting/On/Mojo.pm

Criterion	Covered	Total	%
statement	12	29	41.3
branch	0	2	0.0
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	17	37	45.9

package Squatting::On::Mojo;
use strict;
use warnings;
use CGI::Cookie;

our $VERSION = '0.03';
our %p;

$p{e} = sub {
  my $tx  = shift;
  my $req = $tx->req;
  my $url = $req->url;
  my %env;
  $env{QUERY_STRING}   = $url->query || '';
  $env{REQUEST_PATH}   = $url->path->to_string;
  $env{REQUEST_URI}    = "$env{REQUEST_PATH}?$env{QUERY_STRING}";
  $env{REQUEST_METHOD} = $req->method;
  my $h = $req->headers->{_headers};
  for (keys %$h) {
    my $header = "HTTP_" . uc($_);
    $header =~ s/-/_/g;
    $env{$header} = $h->{$_}[0]; # FIXME: I need to handle multiple occurrences of a header.
  }
  \%env;
};

$p{c} = sub {
  my $tx = shift;
  my $c  = $tx->req->cookies;
  my %k;
  for (@$c) { $k{$_->name} = $_->value; }
  \%k;
};

$p{init_cc} = sub {
  my ($c, $tx) = @_;
  my $cc = $c->clone;
  $cc->env     = $p{e}->($tx);
  $cc->cookies = $p{c}->($tx);
  $cc->input   = $tx->req->params->to_hash;
  $cc->headers = { 'Content-Type' => 'text/html' };
  $cc->v       = {};
  # $cc->state = ?
  $cc->status = 200;
  $cc;
};

sub mojo {
  no strict 'refs';
  my ($app, $mojo, $tx) = @_;
  my ($c,   $p)  = &{ $app . "::D" }($tx->req->url->path);
  my $cc      = $p{init_cc}->($c, $tx);
  $cc->log    = $mojo->log;
  my $content = $app->service($cc, @$p);
  my $h       = $tx->res->headers;
  my $ch      = $cc->headers;
  for my $header (keys %$ch) {
    if (ref $ch->{$header} eq 'ARRAY') {
      for my $item (@{ $ch->{$header} }) {
        $h->add($header => $item);
      }
    } else {
      $h->add($header => $ch->{$header});
    }
  }
  $tx->res->code($cc->status);
  $tx->res->body($content);
  $tx;
}

1;

__END__