Update OFF_URL and make $http global
authorMarius Gavrilescu <marius@ieval.ro>
Fri, 4 Dec 2015 12:10:30 +0000 (12:10 +0000)
committerMarius Gavrilescu <marius@ieval.ro>
Fri, 4 Dec 2015 12:10:30 +0000 (12:10 +0000)
lib/WWW/Offliberty.pm

index b5b79188003d9cc44327f9edad544a79d06044b9..039534bebee8565d2c402fac97e21355e1e4a3cd 100644 (file)
@@ -7,12 +7,12 @@ use parent qw/Exporter/;
 our $VERSION = '1.000';
 our @EXPORT_OK = qw/off/;
 
-use constant OFF_URL => 'http://offliberty.com/off54.php';
+use constant OFF_URL => 'http://offliberty.com/off02.php';
 
 use HTML::TreeBuilder;
 use HTTP::Tiny;
 
-my $http = HTTP::Tiny->new(agent => "WWW-Offliberty/$VERSION ", default_headers => {Referer => "http://offliberty.com/"});
+our $http = HTTP::Tiny->new(agent => "WWW-Offliberty/$VERSION ", default_headers => {Referer => "http://offliberty.com/"});
 
 sub off{
        my ($url, @params) = @_;
This page took 0.011247 seconds and 4 git commands to generate.