File Coverage

blib/lib/WWW/Scraper/ISBN/LibUniverIt.pm

Criterion	Covered	Total	%
statement	15	70	21.4
branch	0	30	0.0
condition			n/a
subroutine	5	7	71.4
pod			n/a
total	20	107	18.6

package WWW::Scraper::ISBN::LibUniverIt_Driver;
use strict;
use warnings;
use LWP::UserAgent;
use WWW::Scraper::ISBN::Driver;
use HTML::Entities qw(decode_entities);

our @ISA = qw(WWW::Scraper::ISBN::Driver);

our $VERSION = '0.13';

sub search {
        my $self = shift;
        my $isbn = shift;
        $self->found(0);
        $self->book(undef);

	my $post_url = 'http://www.libreriauniversitaria.it/c_power_search.php?shelf=BIT&q=' . $isbn . '&submit=Invia';
        my $ua = new LWP::UserAgent;
        my $res = $ua->get($post_url);
        my $doc = $res->as_string;

        my $title = "";
        my $authors = "";
        my $editor = "";
	    my $date = "";
	    my $price = "";
        my $pages = "";
	    my $series = "";
	    my $shelf = "";
	    my $trans = "";
        if ($doc =~ /Nessun prodotto corrisponde ai criteri di ricerca/) {
	    $self->error("book not found.");
	    $self->found(0);
	    return 0;
	} elsif ($doc =~ m|Ricerca - $isbn - libreriauniversitaria\.it|i){
		my $info;
		if ($doc =~ m|
			$title = $1;
			$info = $2;
			$authors = parse_authors($info);
			if ($info =~ m|]+ href="libri-editore[^"]+" [^>]+/>([^<]+) - (\d+)|){
			    $editor = $1;
			    $date = $2;
			}
		}

		##Editore: Einaudi
		$price = $1 if ($doc =~ /Prezzo: .*?€ (\d+)/);
	} elsif ($doc =~ /Dettagli del libro/){
		$price = $1 if ($doc =~ m|€ ([^<]+)|);
		$title = $1 if ($doc =~ m|Titolo: \n\t+\s+([^>]+)|);
		$authors = parse_authors($1) if ($doc =~ m|Autor[ei]: \n\t+\s+(.*?)\n\t+\s+|);
	    $editor = $1 if ($doc =~m|Editore: \n\t+\s+
55
	    $date = $1 if ($doc =~ m|Data di Pubblicazione: \n\t+\s+(\d+)|);
		$pages = $1 if ($doc =~ m|Pagine: \n\t+\s+(\d+)|);
        $series = $1 if ($doc =~ m|Collana: \n\t+\s+
58
	    $shelf = $1 if ($doc =~ m|Reparto: \n\t+\s+
59
	    $trans = $1 if ($doc =~ m|Traduttore: \n\t+\s+([^<]+)|);

	} else {
		$self->error("libreriauniversitaria.it answered in an unattended way, book information cannot be found.");
		$self->found(0);
	};

	decode_entities($title);
	decode_entities($authors);
	decode_entities($editor);
	my $bk = {
                'isbn' => $isbn,
                'author' => $authors,
                'title' => $title,
                'publisher' => $editor,
		'date' => $date,
		'price' => $price,
		'pages' => $pages,
		'series' => $series,
		'shelf' => $shelf,
		'trans' => $trans,
        };
	$self->book($bk);
	$self->found(1);
        return $bk;
}

sub parse_authors {
	my $info = shift;
	my $sep = "";
	my $authors;
	while ($info =~ s|]+>([^<]+)||){
		$authors .=  $sep . $1;
		$sep = ", ";
	}
	return $authors;
}

1;
__END__