ASP4

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

    Cwd:                      0
    Digest::MD5:              0
    DBI:                      0
    Ima::DBI::Contextual:     0
    Storable:                 0
    HTTP::Date:               0
    Time::HiRes               0
    Mail::Sendmail:           0
    CGI:                      3.43
    HTTP::Body:               0
    JSON::XS:                 0
no_index:
    directory:
        - t
        - inc
generated_by:       Hand
resources:
  repository: git://github.com/jdrago999/ASP4.git
meta-spec:
    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
    version:  1.4

Makefile.PL  view on Meta::CPAN

requires    'Cwd'                     => 0;
requires    'Digest::MD5'             => 0;       # Session state.
requires    'DBI'                     => 0;       # Session state.
requires    'Ima::DBI::Contextual'    => 0;       # Session state.
requires    'Storable'                => 0;       # Session state.
requires    'HTTP::Date'              => 0;       # For Session timeouts.
requires    'Time::HiRes'             => 0;       # For Session ids.
requires    'Mail::Sendmail'          => 0;       # For sending email.
requires    'CGI'                     => 3.43;    # For...cgi stuff...
requires    'HTTP::Body'              => 0;
requires    'JSON::XS'                => 0;       # For Configs
requires    'Term::ReadKey'           => 0;       # For asphelper script.

recommends  'ASP4x::Router'           => 0.020;   # For routing.

install_script 'sbin/asp4';
install_script 'sbin/asp4-prep';
install_script 'sbin/asp4-deploy';
install_script 'sbin/asphelper';
resources(
  'repository'  => 'https://github.com/jdrago999/ASP4'

lib/ASP4/ConfigLoader.pm  view on Meta::CPAN

package ASP4::ConfigLoader;

use strict;
use warnings 'all';
use Carp 'confess';
use ASP4::ConfigFinder;
use ASP4::ConfigParser;
use JSON::XS;

our $Configs = { };


#==============================================================================
sub load
{
  my ($s) = @_;
  
  my $path = ASP4::ConfigFinder->config_path;

lib/ASP4/ConfigNode/Web.pm  view on Meta::CPAN

package ASP4::ConfigNode::Web;

use strict;
use warnings 'all';
use base 'ASP4::ConfigNode';
use Carp 'confess';
use JSON::XS;


sub new
{
  my $class = shift;
  
  my $s = $class->SUPER::new( @_ );
  $s->{handler_resolver}  ||= 'ASP4::HTTPContext::HandlerResolver';
  $s->{handler_runner}    ||= 'ASP4::HTTPContext::HandlerRunner';
  $s->{filter_resolver}   ||= 'ASP4::HTTPContext::FilterResolver';

lib/ASP4/Error.pm  view on Meta::CPAN

package ASP4::Error;

use strict;
use warnings 'all';
use ASP4::HTTPContext;
use JSON::XS;


sub new
{
  my $class = shift;
  my ($err_str, %args);
  if( @_ )
  {
    if( @_ == 1 )
    {

lib/ASP4/ErrorHandler/Remote.pm  view on Meta::CPAN

package ASP4::ErrorHandler::Remote;

use strict;
use warnings 'all';
use base 'ASP4::ErrorHandler';
use vars __PACKAGE__->VARS;
use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Date 'time2iso';
use JSON::XS;
use Data::Dumper;
require ASP4;

our $ua;

sub run
{
  my ($s, $context) = @_;
  
  my $error = $Stash->{error};

lib/ASP4/SessionStateManager/Memcached.pm  view on Meta::CPAN

package 
ASP4::SessionStateManager::Memcached;

# XXX: Experimental memcached session storage.
# TODO: Configuration section is likely to change.

use strict;
use warnings 'all';
use base 'ASP4::SessionStateManager';
use Cache::Memcached;
use JSON::XS;

my $memd;

sub new
{
  my ($class, $r) = @_;
  my $s = bless { }, $class;
  my $conn = ASP4::ConfigLoader->load->data_connections->session;
  $memd = Cache::Memcached->new({
    servers => [ $conn->dsn ]

 view all matches for this distribution
 view release on metacpan -  search on metacpan