Extract Details
|
my $bk = { 'isbn' => $data->{isbn}, 'author' => $data->{author}, 'title' => $data->{title}, 'book_link' => $mechanize->uri() 'image_link' => ORA . $data->{graphic}, 'description' => $data->{description}, 'pubdate' => $data->{pubdate}, }; $self->book($bk); $self->found(1); return $self->book; } |
- store the book details
- say we found it
- return the object