home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / Family.pm < prev    next >
Encoding:
Perl POD Document  |  2002-05-16  |  153 b   |  17 lines
  1. package YAML::Family;
  2.  
  3. sub new {
  4.     my ($class, $self) = @_;
  5.     bless \$self, $class
  6. }
  7.  
  8. sub short {
  9.     ${$_[0]}
  10. }
  11.  
  12. sub canonical {
  13.     ${$_[0]}
  14. }
  15.  
  16. 1;
  17.