X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FWWW%2FSearch%2FTorrentz%2FResult.pm;h=60aa726629a0f145c609e735f55534ecde7d8268;hb=7dcf8cdab03b116a2cd2faefd95fa27683e6b48e;hp=487e2026ca527c23e95770425079a8a6a5de1ebb;hpb=99ef893e46a2535fa17c78d6dbe718df1aa3a217;p=www-search-torrentz.git

diff --git a/lib/WWW/Search/Torrentz/Result.pm b/lib/WWW/Search/Torrentz/Result.pm
index 487e202..60aa726 100644
--- a/lib/WWW/Search/Torrentz/Result.pm
+++ b/lib/WWW/Search/Torrentz/Result.pm
@@ -11,15 +11,15 @@ use HTML::TreeBuilder;
 use URI::Escape qw/uri_escape/;
 
 sub new{
-  my ($class, %args) = @_;
-  my $self = $class->SUPER::new(@_);
-  $self->{parsed} = 0;
-
-  no strict 'refs';
-  $self->$_($args{$_}) for qw/title verified age size seeders leechers infohash/;
-  $self->{ua} = $args{ua};
-  $self->add_url("https://torrentz.eu/$args{infohash}");
-  $self
+	my ($class, %args) = @_;
+	my $self = $class->SUPER::new(@_);
+	$self->{parsed} = 0;
+
+	no strict 'refs';
+	$self->$_($args{$_}) for qw/title verified age size seeders leechers infohash/;
+	$self->{ua} = $args{ua};
+	$self->add_url("https://torrentz.eu/$args{infohash}");
+	$self
 }
 
 sub infohash { shift->_elem(infohash => @_) }
@@ -30,81 +30,81 @@ sub seeders { shift->_elem(seeders => @_) }
 sub leechers { shift->_elem(leechers => @_) }
 
 sub magnet{
-  my ($self, $full) = @_;
-  my $infohash = $self->infohash;
-  my $title = uri_escape $self->title;
-  my $uri = "magnet:?xt=urn:btih:$infohash&dn=$title";
+	my ($self, $full) = @_;
+	my $infohash = $self->infohash;
+	my $title = uri_escape $self->title;
+	my $uri = "magnet:?xt=urn:btih:$infohash&dn=$title";
 
-  $uri .= join '', map { "&tr=$_"} map { uri_escape $_ } $self->trackers if $full;
+	$uri .= join '', map { "&tr=$_"} map { uri_escape $_ } $self->trackers if $full;
 
-  $uri
+	$uri
 }
 
 sub parse_page {
-  my $self = $_[0];
-  my $tree = HTML::TreeBuilder->new;
-  $tree->utf8_mode(1);
-  $tree->parse($self->{ua}->get($self->url)->content);
-  $tree->eof;
-
-  my $trackers = $tree->look_down(class => 'trackers');
-  $self->{trackers} //= [];
-  for my $tracker ($trackers->find('dl')) {
-	push $self->{trackers}, $tracker->find('a')->as_text;
-  }
-
-  my $files = $tree->look_down(class => 'files');
-  $self->{files} //= [];
-  $self->parse_directory(scalar $files->find('li'), '');
-
-  $self->{parsed} = 1;
+	my $self = $_[0];
+	my $tree = HTML::TreeBuilder->new;
+	$tree->utf8_mode(1);
+	$tree->parse($self->{ua}->get($self->url)->content);
+	$tree->eof;
+
+	my $trackers = $tree->look_down(class => 'trackers');
+	$self->{trackers} //= [];
+	for my $tracker ($trackers->find('dl')) {
+		push $self->{trackers}, $tracker->find('a')->as_text;
+	}
+
+	my $files = $tree->look_down(class => 'files');
+	$self->{files} //= [];
+	$self->parse_directory(scalar $files->find('li'), '');
+
+	$self->{parsed} = 1;
 }
 
 sub parse_directory{
-  my ($self, $directory, $prefix) = @_;
-  $prefix .= $directory->as_text . '/';
-  my $contents_ul = $directory->right->find('ul');
-  return unless defined $contents_ul; # Empty directory
-  my @children = $contents_ul->content_list;
-  my $skip = 0;
-  for my $child (@children) {
-	if ($skip) {
-	  $skip = 0;
-	  next;
-	}
-
-	if (defined $child->attr('class') && $child->attr('class') eq 't') {
-	  $self->parse_directory($child, $prefix);
-	  $skip = 1;
-	} else {
-	  $child->objectify_text;
-	  my ($filename, $size) = $child->find('~text');
-	  push $self->{files}, +{
-		path => $prefix.$filename->attr('text'),
-		size => $size->attr('text')
-	  }
+	my ($self, $directory, $prefix) = @_;
+	$prefix .= $directory->as_text . '/';
+	my $contents_ul = $directory->right->find('ul');
+	return unless defined $contents_ul; # Empty directory
+	my @children = $contents_ul->content_list;
+	my $skip = 0;
+	for my $child (@children) {
+		if ($skip) {
+			$skip = 0;
+			next;
+		}
+
+		if (defined $child->attr('class') && $child->attr('class') eq 't') {
+			$self->parse_directory($child, $prefix);
+			$skip = 1;
+		} else {
+			$child->objectify_text;
+			my ($filename, $size) = $child->find('~text');
+			push $self->{files}, +{
+				path => $prefix.$filename->attr('text'),
+				size => $size->attr('text')
+			}
+		}
 	}
-  }
 }
 
 sub trackers{
-  my $self = $_[0];
-  $self->parse_page unless $self->{parsed};
-  @{$self->{trackers}}
+	my $self = $_[0];
+	$self->parse_page unless $self->{parsed};
+	@{$self->{trackers}}
 }
 
 sub files{
-  my $self = $_[0];
-  $self->parse_page unless $self->{parsed};
-  @{$self->{files}}
+	my $self = $_[0];
+	$self->parse_page unless $self->{parsed};
+	@{$self->{files}}
 }
 
 sub torrent{
-  my $self = $_[0];
-  my $torrage = 'http://torrage.com/torrent/' . uc $self->infohash . '.torrent';
-  my $torrent = $self->{ua}->get($torrage)->content;
+	my $self = $_[0];
+	my $torrage = 'http://torrage.com/torrent/' . uc $self->infohash . '.torrent';
+	my $torrent = $self->{ua}->get($torrage)->content;
 
-  $torrent; # TODO: if this is undef, download metadata with magnet link
+	$torrent; # TODO: if this is undef, download metadata with magnet link
 }
 
 1;