perl_lib/Kamitsukai/Table/Book.pm

   1 package Kamitsukai::Table::Book;
   2
   3 use strict;
   4 use Perl6::Parameters;
   5
   6 use base qw/Kamitsukai::Database::Table/;
   7
   8 use aliased 'Kamitsukai::Table::AmazonImages';
   9
  10 Kamitsukai::Table::Book->table('library_book_info');
  11
  12 Kamitsukai::Table::Book->columns(
  13     All => qw/
  14         id
  15         isbn
  16         ean
  17         title
  18         binding
  19         deweydecimal
  20         publisher
  21         published
  22         released
  23         studio
  24         pages
  25         height
  26         heightunits
  27         length
  28         lengthunits
  29         width
  30         widthunits
  31         weight
  32         weightunits
  33         asin
  34         detailpageurl
  35         updated
  36     /,
  37 );
  38
  39 sub images($self)
  40 {
  41     return AmazonImages->search(asin => $self->asin());
  42 }
  43
  44 1;