view release on metacpan or  search on metacpan

lib/JSON/RPC/LWP.pm  view on Meta::CPAN

has ua => (
  is => 'rw',
  isa => 'LWP::UserAgent',
  lazy => 1,
  predicate => 'has_ua',
  default => sub{
    my($self) = @_;
    my $lwp = LWP::UserAgent->new(
      env_proxy => 1,
      keep_alive => 1,
      parse_head => 0,
      agent => $self->agent,
    );
  },
  handles => \@ua_handles,
);

my @marshal_handles = qw{
  prefer_get
  rest_style_methods