view release on metacpan or  search on metacpan

t/000-http_errors.t  view on Meta::CPAN

     HTTP::Response->new(
         400, 
         "400 Response", 
         undef,
         q{<response status = 'error' code = '400'><result><msg>Illegal parameter [request]</msg></result></response>}
     ),
     HTTP::Response->new(
         403, 
         "403 Response", 
         undef,
         q{<response status = 'error' code = '403'><result><msg>Invalid credentials.</msg></result></response>}
     ),
     HTTP::Response->new(
         500, 
         "500 Response", 
         undef,
         q{}
     ),
     HTTP::Response->new(
         503, 
         "503 Response",