Reindent everything
authorMarius Gavrilescu <marius@ieval.ro>
Fri, 2 May 2014 05:51:10 +0000 (08:51 +0300)
committerMarius Gavrilescu <marius@ieval.ro>
Fri, 2 May 2014 05:51:10 +0000 (08:51 +0300)
Makefile.PL
lib/WWW/Offliberty.pm
t/50-network.t

index 874f8b586229abd58f625b069a23a4ef57b73c00..782f9101addeeed2d53ef7ac5a887c9624482c2e 100644 (file)
@@ -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 <marius@ieval.ro>',
-  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 <marius@ieval.ro>',
+       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',
+               },
+       }
 );
index fc9c348d83c8cc53475f356af8677711b31ab934..f770208c40fab40c79af17d1eb7ac9b1163a402c 100644 (file)
@@ -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;
index b940cc8d6f45bb744679d36de3b4084fb9421b94..20b07e63ad55a7541b799bb035273a416efe1428 100644 (file)
@@ -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';
 }
This page took 0.013024 seconds and 4 git commands to generate.