home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / auto / Storable / retrieve.al < prev    next >
Encoding:
Text File  |  1997-08-10  |  477 b   |  23 lines
  1. # NOTE: Derived from blib\lib\Storable.pm.  Changes made here will be lost.
  2. package Storable;
  3.  
  4. #
  5. # retrieve
  6. #
  7. # Retrieve object hierarchy from disk, returning a reference to the root
  8. # object of that tree.
  9. #
  10. sub retrieve {
  11.     my ($file) = @_;
  12.     local *FILE;
  13.     open(FILE, "$file") || croak "Can't open $file: $!";
  14.     binmode FILE;
  15.     my $self;
  16.     eval { $self = pretrieve(FILE) };        # Call C routine
  17.     close(FILE);
  18.     croak $@ if $@ =~ s/\.?\n$/,/;
  19.     return $self;
  20. }
  21.  
  22. 1;
  23.