home *** CD-ROM | disk | FTP | other *** search
/ Clickx 115 / Clickx 115.iso / software / tools / windows / tails-i386-0.16.iso / live / filesystem.squashfs / usr / share / perl5 / URI / IRI.pm < prev    next >
Encoding:
Perl POD Document  |  2009-11-21  |  769 b   |  45 lines
  1. package URI::IRI;
  2.  
  3. # Experimental
  4.  
  5. use strict;
  6. use URI ();
  7.  
  8. use overload '""' => sub { shift->as_string };
  9.  
  10. sub new {
  11.     my($class, $uri, $scheme) = @_;
  12.     utf8::upgrade($uri);
  13.     return bless {
  14.     uri => URI->new($uri, $scheme),
  15.     }, $class;
  16. }
  17.  
  18. sub clone {
  19.     my $self = shift;
  20.     return bless {
  21.     uri => $self->{uri}->clone,
  22.     }, ref($self);
  23. }
  24.  
  25. sub as_string {
  26.     my $self = shift;
  27.     return $self->{uri}->as_iri;
  28. }
  29.  
  30. sub AUTOLOAD
  31. {
  32.     use vars qw($AUTOLOAD);
  33.     my $method = substr($AUTOLOAD, rindex($AUTOLOAD, '::')+2);
  34.  
  35.     # We create the function here so that it will not need to be
  36.     # autoloaded the next time.
  37.     no strict 'refs';
  38.     *$method = sub { shift->{uri}->$method(@_) };
  39.     goto &$method;
  40. }
  41.  
  42. sub DESTROY {}   # avoid AUTOLOADing it
  43.  
  44. 1;
  45.