home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl_ste.zip / auto / URI / URL / scheme.al < prev    next >
Text File  |  1997-11-28  |  553b  |  24 lines
  1. # NOTE: Derived from ./blib/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.     if (@_) {
  8.     my $new_scheme = shift;
  9.     if (defined($new_scheme) && length($new_scheme)) {
  10.         # reparse URL with new scheme
  11.         my $str = $self->as_string;
  12.         $str =~ s/^[\w+\-.]+://;
  13.         my $newself = new URI::URL "$new_scheme:$str";
  14.         %$self = %$newself;
  15.         bless $self, ref($newself);
  16.     } else {
  17.         $self->{'scheme'} = undef;
  18.     }
  19.     }
  20.     $old;
  21. }
  22.  
  23. 1;
  24.