view release on metacpan or  search on metacpan

t/lib/Test/Net/Async/Webservice/UPS/NoNetwork.pm  view on Meta::CPAN

            $request,
        );
    }
}

sub file_for_next_test {
    my ($self,$file,$comment) = @_;

    my ($req_line,$request,$response) = do {
        open my $fh,'<',$file;
        local $/="";
        <$fh>;
    };
    $req_line =~ s{^POST }{}; # remove HTTP verb, we know it's a POST
    $request = XMLin(
        $request,
        KeepRoot=>1,
        NoAttr=>1, KeyAttr=>[],
    );
    push @testing_requests,[$req_line,$request];
    push @responses,$response;