Dogcows Code - chaz/p5-HTTP-AnyUA/blob - lib/HTTP/AnyUA/Backend/HTTP/AnyUA.pm

   1 package HTTP::AnyUA::Backend::HTTP::AnyUA;
   2 # ABSTRACT: A unified programming interface for HTTP::AnyUA
   3
   4 =head1 DESCRIPTION
   5
   6 This module adds support for the HTTP client L<HTTP::AnyUA> to be used with the unified programming
   7 interface provided by L<HTTP::AnyUA>.
   8
   9 Mind blown.
  10
  11 =head1 SEE ALSO
  12
  13 =for :list
  14 * L<HTTP::AnyUA::Backend>
  15
  16 =cut
  17
  18 use warnings;
  19 use strict;
  20
  21 our $VERSION = '9999.999'; # VERSION
  22
  23 use parent 'HTTP::AnyUA::Backend';
  24
  25
  26 sub response_is_future {
  27     my $self = shift;
  28
  29     return $self->ua->response_is_future;
  30 }
  31
  32 sub request {
  33     my $self = shift;
  34
  35     return $self->ua->request(@_);
  36 }
  37
  38 1;