From: Marius Gavrilescu Date: Fri, 2 May 2014 05:51:10 +0000 (+0300) Subject: Reindent everything X-Git-Tag: 0.002~6 X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=000e34969f016810f1455865a926ad62d8f810c2;p=www-offliberty.git Reindent everything --- diff --git a/Makefile.PL b/Makefile.PL index 874f8b5..782f910 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -1,21 +1,21 @@ use ExtUtils::MakeMaker; WriteMakefile( - NAME => 'WWW::Offliberty', - VERSION_FROM => 'lib/WWW/Offliberty.pm', - ABSTRACT_FROM => 'lib/WWW/Offliberty.pm', - AUTHOR => 'Marius Gavrilescu ', - MIN_PERL_VERSION => '5.14.0', - LICENSE => 'perl', - SIGN => 1, - PREREQ_PM => { - HTML::TreeBuilder => 0, - LWP::UserAgent => 0, - }, - META_ADD => { - dynamic_config => 0, - resources => { - repository => 'http://git.ieval.ro/?p=www-offliberty.git', + NAME => 'WWW::Offliberty', + VERSION_FROM => 'lib/WWW/Offliberty.pm', + ABSTRACT_FROM => 'lib/WWW/Offliberty.pm', + AUTHOR => 'Marius Gavrilescu ', + MIN_PERL_VERSION => '5.14.0', + LICENSE => 'perl', + SIGN => 1, + PREREQ_PM => { + HTML::TreeBuilder => 0, + LWP::UserAgent => 0, }, - } + META_ADD => { + dynamic_config => 0, + resources => { + repository => 'http://git.ieval.ro/?p=www-offliberty.git', + }, + } ); diff --git a/lib/WWW/Offliberty.pm b/lib/WWW/Offliberty.pm index fc9c348..f770208 100644 --- a/lib/WWW/Offliberty.pm +++ b/lib/WWW/Offliberty.pm @@ -13,10 +13,10 @@ use LWP::UserAgent; my $ua = LWP::UserAgent->new; sub off{ - my ($url, @params) = @_; - my $content = $ua->post("http://offliberty.com/off.php", {track => $url, @params})->decoded_content; - my $root = HTML::TreeBuilder->new_from_content($content); - map { $_->attr('href') } $root->look_down(qw/_tag a class download/); + my ($url, @params) = @_; + my $content = $ua->post("http://offliberty.com/off.php", {track => $url, @params})->decoded_content; + my $root = HTML::TreeBuilder->new_from_content($content); + map { $_->attr('href') } $root->look_down(qw/_tag a class download/); } 1; diff --git a/t/50-network.t b/t/50-network.t index b940cc8..20b07e6 100644 --- a/t/50-network.t +++ b/t/50-network.t @@ -6,15 +6,15 @@ use Test::More; use WWW::Offliberty qw/off/; if ($ENV{NETWORK_TEST}) { - plan tests => 2; + plan tests => 2; - my @results; + my @results; - @results = off "http://youtube.com/watch?v=Tj75Arhq5ho"; - is @results, 1, 'youtube'; + @results = off "http://youtube.com/watch?v=Tj75Arhq5ho"; + is @results, 1, 'youtube'; - @results = off "http://youtube.com/watch?v=Tj75Arhq5ho", video_file => 1; - is @results, 2, 'youtube, video_file => 1'; + @results = off "http://youtube.com/watch?v=Tj75Arhq5ho", video_file => 1; + is @results, 2, 'youtube, video_file => 1'; } else { - plan skip_all => '$ENV{NETWORK_TEST} not true'; + plan skip_all => '$ENV{NETWORK_TEST} not true'; }