Ark

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "HTTP::Request" : "0",
            "JSON" : "0",
            "Mouse" : "1.00",
            "Object::Container" : "0.08",
            "Path::AttrRouter" : "0.03",
            "Path::Class" : "0.16",
            "Plack" : "0.9910",
            "Plack::Request::WithEncoding" : "0.10",
            "Text::MicroTemplate" : "0",
            "Text::SimpleTable" : "0",
            "Try::Tiny" : "0.02",
            "URI::WithBase" : "0",
            "perl" : "5.008001"
         },
         "suggests" : {
            "Ark::Plugin::Authentication" : "0",
            "Ark::Plugin::I18N" : "0",
            "Ark::Plugin::MobileJP" : "0",
            "Ark::Plugin::ReproxyCallback" : "0"
         }
      },

META.yml  view on Meta::CPAN

  HTTP::Request: '0'
  JSON: '0'
  Mouse: '1.00'
  Object::Container: '0.08'
  Path::AttrRouter: '0.03'
  Path::Class: '0.16'
  Plack: '0.9910'
  Plack::Request::WithEncoding: '0.10'
  Text::MicroTemplate: '0'
  Text::SimpleTable: '0'
  Try::Tiny: '0.02'
  URI::WithBase: '0'
  perl: '5.008001'
resources:
  bugtracker: https://github.com/ark-framework/ark/issues
  homepage: https://github.com/ark-framework/ark
  repository: git://github.com/ark-framework/ark.git
version: '1.22'
x_authority: cpan:SONGMU
x_contributors:
  - 'Daisuke Murase <typester@gmail.com>'

cpanfile  view on Meta::CPAN

requires 'HTML::Shakan', '2.00';
requires 'HTTP::Cookies';
requires 'HTTP::Request';
requires 'JSON';
requires 'Mouse', '1.00';
requires 'Object::Container', '0.08';
requires 'Path::AttrRouter', '0.03';
requires 'Path::Class', '0.16';
requires 'Plack::Request::WithEncoding', '0.10';
requires 'Plack', '0.9910';
requires 'Try::Tiny',   '0.02';
requires 'URI::WithBase';
requires 'perl', '5.008001';

requires 'Cookie::Baker', '0.11';
requires 'Digest::SHA1';

# Context::Debug
requires 'Devel::StackTrace';
requires 'Text::SimpleTable';
requires 'Text::MicroTemplate';

lib/Ark/Context.pm  view on Meta::CPAN

package Ark::Context;
use Mouse;

use Scalar::Util ();
use Try::Tiny 0.02;
use URI::WithBase;

our $DETACH    = 'ARK_DETACH';
our $DEFERRED  = 'ARK_DEFERRED';
our $STREAMING = 'ARK_STREAMING';

extends 'Ark::Component';

has request => (
    is       => 'rw',

lib/Ark/Context/Debug.pm  view on Meta::CPAN

package Ark::Context::Debug;
use Mouse::Role;

use Try::Tiny;
use HTML::Escape ();

has debug_report => (
    is      => 'rw',
    isa     => 'Text::SimpleTable',
    lazy    => 1,
    default => sub {
        my $self = shift;
        $self->ensure_class_loaded('Text::SimpleTable');
        Text::SimpleTable->new([62, 'Action'], [9, 'Time']);

lib/Ark/Context/Debug.pm  view on Meta::CPAN

    my @__args = @_;
    try {
        local $SIG{__DIE__} = sub {
            $self->ensure_class_loaded('Devel::StackTrace');
            my $trace = Devel::StackTrace->new(
                ignore_package => [
                    qw/Ark::Core
                       Ark::Action
                       Ark::Context::Debug
                       Ark::Context
                       Try::Tiny/,
                ],
                no_refs => 1,
            );
            $self->debug_stack_traces([ $trace->frames ])
                unless scalar @{ $self->debug_stack_traces };
        };

        $res = $next->(@__args);
    } catch {
        $err = $_;