Book Searching with Perl Under The Hood 21 of 29 : [PREV] [NEXT]

The search() Function

sub search {
      my $self = shift;
      my $isbn = shift;
      $self->found(0);
      $self->book(undef);
  • grab the object
  • grab the ISBN search string
  • ensure we tell the call we haven't found anything yet
  • clear the book details respository
© 2004 Barbie barbie@missbarbell.co.uk Home http://birmingham.pm.org/