home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CLIX - Fazer Clix Custa Nix
/
CLIX-CD.cdr
/
mac
/
lib
/
auto
/
URI
/
URL
/
base.al
< prev
next >
Wrap
Text File
|
1997-12-13
|
746b
|
24 lines
# NOTE: Derived from :lib:URI:URL.pm. Changes made here will be lost.
package URI::URL;
# Access some attributes of a URL object:
sub base {
my $self = shift;
return $self->_elem('_base', @_) if @_; # set
# The base attribute supports 'lazy' conversion from URL strings
# to URL objects. Strings may be stored but when a string is
# fetched it will automatically be converted to a URL object.
# The main benefit is to make it much cheaper to say:
# new URI::URL $random_url_string, 'http:'
my $base = $self->_elem('_base'); # get
return undef unless defined $base;
unless (ref $base){
$base = new URI::URL $base;
$self->_elem('_base', $base); # set new object
}
$base;
}
1;