Changeset 16118 for lang/perl/Google-Chart

Timestamp:

07/23/08 13:56:18 (5 years ago)

Author:

daisuke

Message:

reuse user agent

Files:

• lang/perl/Google-Chart/branches/moose/lib/Google/Chart.pm (modified) (2 diffs)

lang/perl/Google-Chart/branches/moose/lib/Google/Chart.pm

@@ -14 +14 @@
     fallback => 1,
 ;
+our $USER_AGENT;
 
 use constant BASE_URI => URI->new("http://chart.apis.google.com/chart");
@@ -59 +60 @@
     isa      => 'LWP::UserAgent',
     required => 1,
-    default  => sub { LWP::UserAgent->new() }
+    lazy     => 1,
+    default  => sub { $USER_AGENT ||= LWP::UserAgent->new() }
 );