home *** CD-ROM | disk | FTP | other *** search
/ CLIX - Fazer Clix Custa Nix / CLIX-CD.cdr / mac / lib / auto / URI / URL / print_on.al < prev    next >
Text File  |  1997-12-13  |  406b  |  19 lines
  1. # NOTE: Derived from :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 || 'STDOUT';
  9.     my($k, $v);
  10.     print $fh "Dump of 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.