home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / xampp / xampp-perl-addon-1.4.9-installer.exe / new.al < prev    next >
Encoding:
Text File  |  2002-11-06  |  635 b   |  24 lines
  1. # NOTE: Derived from ..\blib\lib\CGI\XMLForm\Path.pm.
  2. # Changes made here will be lost when autosplit is run again.
  3. # See AutoSplit.pm.
  4. package CGI::XMLForm::Path;
  5.  
  6. #line 21 "..\blib\lib\CGI\XMLForm\Path.pm (autosplit into ..\blib\lib\auto\CGI\XMLForm\Path\new.al)"
  7. # This class allows comparison of current paths
  8.  
  9. sub new {
  10.     my $proto = shift;
  11.     my $class = ref($proto) || $proto;
  12.     my $self;
  13.     $self->{_path} = $_[0];
  14.     $self->{_fullpath} = [];
  15.     bless ($self, $class);          # reconsecrate
  16.     if ($self->{_path}) {
  17.         $self->buildSelf($_[1] || new $class);
  18.     }
  19.     return $self;
  20. }
  21.  
  22. # end of CGI::XMLForm::Path::new
  23. 1;
  24.