Changeset 26174

Show
Ignore:
Timestamp:
12/09/08 12:49:18 (4 years ago)
Author:
tokuhirom
Message:

merge minimalist branch. this branch works well and helpful for cgi

Location:
lang/perl/HTTP-Engine/trunk
Files:
3 added
1 removed
7 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/HTTP-Engine/trunk/Makefile.PL

    r26155 r26174  
    4545requires 'HTTP::Server::Simple' => 0.35; 
    4646 
    47 requires 'Test::Base'          => 0; 
    48  
    4947features( 
    5048    'Interface::FCGI' => [ 
    … …  
    8482} 
    8583 
     84build_requires 'YAML'; # Test::Base requires this 
    8685build_requires 'Test::More'; 
    8786build_requires 'IO::Scalar'; 

  • lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine.pm

    r26155 r26174  
    77use HTTP::Engine::Response; 
    88use HTTP::Engine::Types::Core qw( Interface ); 
    9 use HTTP::Engine::Util; 
    109 
    1110has 'interface' => ( 

  • lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Request.pm

    r26155 r26174  
    325325sub as_http_request { 
    326326    my $self = shift; 
    327     HTTP::Engine::Util::require_once('HTTP/Request.pm'); 
     327    require 'HTTP/Request.pm'; 
    328328    HTTP::Request->new( $self->method, $self->uri, $self->headers, $self->raw_body ); 
    329329} 

  • lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Request/Upload.pm

    r26155 r26174  
    2121    default => sub { 
    2222        my $self = shift; 
    23         HTTP::Engine::Util::require_once('File/Spec/Unix.pm'); 
     23        require File::Spec::Unix; 
    2424        my $basename = $self->filename; 
    2525        $basename =~ s|\\|/|g; 
    … …  
    4343sub copy_to { 
    4444    my $self = shift; 
    45     HTTP::Engine::Util::require_once('File/Copy.pm'); 
     45    require File::Copy; 
    4646    File::Copy::copy( $self->tempname, @_ ); 
    4747} 

  • lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/ResponseFinalizer.pm

    r26155 r26174  
    44use Scalar::Util        (); 
    55use Carp                (); 
     6use CGI::Simple::Cookie; 
    67 
    78sub finalize { 
    … …  
    5556    my @keys = keys %$cookies; 
    5657    if (@keys) { 
    57         HTTP::Engine::Util::require_once('CGI/Simple/Cookie.pm'); 
    58  
    5958        for my $name (@keys) { 
    6059            my $val = $cookies->{$name}; 

  • lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Role/RequestBuilder/HTTPBody.pm

    r26155 r26174  
    77    HTTP::Engine::Role::RequestBuilder::ReadBody 
    88); 
     9use HTTP::Body; 
    910 
    1011# tempolary file path for upload file. 
    … …  
    4243    my $type   = $req->header('Content-Type'); 
    4344 
    44     HTTP::Engine::Util::require_once('HTTP/Body.pm'); 
    4545    my $body = HTTP::Body->new($type, $length); 
    4646    $body->tmpdir( $self->upload_tmp) if $self->upload_tmp; 

  • lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Role/RequestBuilder/Standard.pm

    r26155 r26174  
    55 
    66with qw(HTTP::Engine::Role::RequestBuilder); 
     7use CGI::Simple::Cookie (); 
    78 
    89sub _build_cookies { 
    … …  
    1011 
    1112    if (my $header = $req->header('Cookie')) { 
    12         HTTP::Engine::Util::require_once('CGI/Simple/Cookie.pm'); 
    1313        return { CGI::Simple::Cookie->parse($header) }; 
    1414    } else {