Changeset 18398 for lang/perl

Show
Ignore:
Timestamp:
08/28/08 19:25:23 (3 months ago)
Author:
tokuhirom
Message:

I HATE ANONCLASS

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/HTTP-Engine/trunk/t/Utils.pm

    r18231 r18398  
    133133 
    134134my $BUILDER = do { 
    135     my $builder_meta = Moose::Meta::Class->create_anon_class( 
    136         superclass => 'Moose::Meta::Class', 
    137         roles => [qw( 
    138             HTTP::Engine::Role::RequestBuilder 
    139             HTTP::Engine::Role::RequestBuilder::ParseEnv 
    140             HTTP::Engine::Role::RequestBuilder::HTTPBody 
    141         )], 
    142         cache => 1, 
     135    my $builder_meta = Moose::Meta::Class->create( 
     136        't::Utils::HTTPRequestBuilder' => ( 
     137            superclass => 'Moose::Meta::Class', 
     138            roles => [qw( 
     139                HTTP::Engine::Role::RequestBuilder 
     140                HTTP::Engine::Role::RequestBuilder::ParseEnv 
     141                HTTP::Engine::Role::RequestBuilder::HTTPBody 
     142            )], 
     143            cache => 1, 
     144        ) 
    143145    ); 
    144146    $builder_meta->make_immutable;