home *** CD-ROM | disk | FTP | other *** search
/ CLIX - Fazer Clix Custa Nix / CLIX-CD.cdr / mac / lib / auto / URI / URL / scheme.al < prev    next >
Text File  |  1997-12-13  |  512b  |  24 lines
  1. # NOTE: Derived from :lib:URI:URL.pm.  Changes made here will be lost.
  2. package URI::URL;
  3.  
  4. sub scheme {
  5.     my $self = shift;
  6.     my $old = $self->{'scheme'};
  7.     return $old unless @_;
  8.  
  9.     my $newscheme = shift;
  10.     if (defined($newscheme) && length($newscheme)) {
  11.     # reparse URL with new scheme
  12.     my $str = $self->as_string;
  13.     $str =~ s/^[\w+\-.]+://;
  14.     my $newself = new URI::URL "$newscheme:$str";
  15.     %$self = %$newself;
  16.     bless $self, ref($newself);
  17.     } else {
  18.     $self->{'scheme'} = undef;
  19.     }
  20.     $old;
  21. }
  22.  
  23. 1;
  24.