C4/SIP/interactive_item_dump.pl

   1 #!/usr/bin/perl
   2 #
   3
   4 use warnings;
   5 use strict;
   6
   7 use ILS::Item;
   8 use Data::Dumper;
   9
  10 while (1) {
  11         print "Enter item barcode: ";
  12         my $in = <>;
  13         defined($in) or last;
  14         chomp($in);
  15         last unless $in;
  16         my $patron = ILS::Item->new($in);
  17         print Dumper($patron);
  18 }