home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl_ste.zip / auto / URI / URL / print_on.al < prev    next >
Text File  |  1997-11-28  |  627b  |  26 lines
  1. # NOTE: Derived from ./blib/lib/URI/URL.pm.  Changes made here will be lost.
  2. package URI::URL;
  3.  
  4. sub print_on
  5. {
  6.     no strict qw(refs);  # because we use strings as filehandles
  7.     my $self = shift;
  8.     my $fh = shift || 'STDERR';
  9.     my($k, $v);
  10.     print $fh "Dump of URI::URL $self...\n";
  11.     foreach $k (sort keys %$self){
  12.     $v = $self->{$k};
  13.     $v = 'UNDEF' unless defined $v;
  14.     print $fh "  $k\t'$v'\n";
  15.     }
  16. }
  17.  
  18. 1;
  19.  
  20.  
  21. #########################################################################
  22. #### D O C U M E N T A T I O N
  23. #########################################################################
  24.  
  25. 1;
  26.