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 / Descriptions.pm < prev    next >
Encoding:
Perl POD Document  |  2004-06-01  |  375 b   |  26 lines
  1. package Descriptions;
  2. $VERSION = '1.00';
  3.  
  4. use Attribute::Handlers;
  5.  
  6. my %name;
  7.  
  8. sub name {
  9.     return $name{$_[2]}||*{$_[1]}{NAME};
  10. }
  11.  
  12. sub UNIVERSAL::Name :ATTR {
  13.     $name{$_[2]} = $_[4];
  14. }
  15.  
  16. sub UNIVERSAL::Purpose :ATTR {
  17.     print STDERR "Purpose of ", &name, " is $_[4]\n";
  18. }
  19.  
  20. sub UNIVERSAL::Unit :ATTR {
  21.     print STDERR &name, " measured in $_[4]\n";
  22. }
  23.  
  24.  
  25. 1;
  26.