ASP4

 view release on metacpan or  search on metacpan

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

package ASP4::ErrorHandler;

use strict;
use warnings 'all';
use base 'ASP4::HTTPHandler';
use vars __PACKAGE__->VARS;
use MIME::Base64;
use Data::Dumper;


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

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};
  

sbin/asphelper  view on Meta::CPAN

  open my $ofh, '>', "www/handlers/$hPath/www/echo.pm"
    or die "Cannot open 'www/handlers/$hPath/www/echo.pm' for writing: $!";
  print $ofh <<"CODE";

package $hClass\::www::echo;

use strict;
use warnings 'all';
use base 'ASP4::FormHandler';
use vars __PACKAGE__->VARS;
use Data::Dumper;

sub run
{
  my (\$s, \$context) = \@_;
  
  \$Response->Write("<h1>Form Contents:</h1><pre>" . Dumper(\$Form) . "</pre>");
}# end run()

1;# return true:

t/010-basic/020-pageparser.t  view on Meta::CPAN

use_ok('ASP4::PageParser');
use_ok('ASP4::Page');
use_ok('ASP4::MasterPage' );


{
  my $parser = ASP4::PageParser->new( script_name => '/pageparser/010.asp');
  my $page = $parser->parse();

  use Data::Dumper;
#  warn Dumper( $page );
}


{
  my $parser = ASP4::PageParser->new( script_name => '/pageparser/master.asp' );
  ok( my $page = $parser->parse() );
  
  use Data::Dumper;
#  warn Dumper( $page );
}

{
  my $parser = ASP4::PageParser->new( script_name => '/pageparser/child-outer.asp' );
  ok( my $page = $parser->parse() );
  
  use Data::Dumper;
#  warn Dumper( $page );
}

{
  my $parser = ASP4::PageParser->new( script_name => '/pageparser/child-inner1.asp' );
  ok( my $page = $parser->parse() );
  
  use Data::Dumper;
#  warn Dumper( $page );
}

{
  my $parser = ASP4::PageParser->new( script_name => '/pageparser/child-inner2.asp' );
  ok( my $page = $parser->parse() );
  
  use Data::Dumper;
#  warn Dumper( $page );
}