home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _8584df4c7472eac9d54cd2f90d1d106d < prev    next >
Encoding:
Text File  |  2004-06-01  |  1.9 KB  |  65 lines
  1. package MyClass;
  2. $VERSION = '1.00';
  3. use v5.6.0;
  4. use base Attribute::Handlers;
  5. no warnings 'redefine';
  6.  
  7.  
  8. sub Good : ATTR(SCALAR) {
  9.     my ($package, $symbol, $referent, $attr, $data) = @_;
  10.  
  11.     # Invoked for any scalar variable with a :Good attribute,
  12.     # provided the variable was declared in MyClass (or
  13.     # a derived class) or typed to MyClass.
  14.  
  15.     # Do whatever to $referent here (executed in CHECK phase).
  16.     local $" = ", ";
  17.     print "MyClass::Good:ATTR(SCALAR)(@_);\n";
  18. };
  19.  
  20. sub Bad : ATTR(SCALAR) {
  21.     # Invoked for any scalar variable with a :Bad attribute,
  22.     # provided the variable was declared in MyClass (or
  23.     # a derived class) or typed to MyClass.
  24.     local $" = ", ";
  25.     print "MyClass::Bad:ATTR(SCALAR)(@_);\n";
  26. }
  27.  
  28. sub Good : ATTR(ARRAY) {
  29.         # Invoked for any array variable with a :Good attribute,
  30.         # provided the variable was declared in MyClass (or
  31.         # a derived class) or typed to MyClass.
  32.     local $" = ", ";
  33.     print "MyClass::Good:ATTR(ARRAY)(@_);\n";
  34. };
  35.  
  36. sub Good : ATTR(HASH) {
  37.         # Invoked for any hash variable with a :Good attribute,
  38.         # provided the variable was declared in MyClass (or
  39.         # a derived class) or typed to MyClass.
  40.     local $" = ", ";
  41.     print "MyClass::Good:ATTR(HASH)(@_);\n";
  42. };
  43.  
  44. sub Ugly : ATTR(CODE) {
  45.         # Invoked for any subroutine declared in MyClass (or a 
  46.         # derived class) with an :Ugly attribute.
  47.     local $" = ", ";
  48.     print "MyClass::UGLY:ATTR(CODE)(@_);\n";
  49. };
  50.  
  51. sub Omni : ATTR {
  52.         # Invoked for any scalar, array, hash, or subroutine
  53.         # with an :Omni attribute, provided the variable or
  54.         # subroutine was declared in MyClass (or a derived class)
  55.         # or the variable was typed to MyClass.
  56.         # Use ref($_[2]) to determine what kind of referent it was.
  57.     local $" = ", ";
  58.     my $type = ref $_[2];
  59.     print "MyClass::OMNI:ATTR($type)(@_);\n";
  60.     use Data::Dumper 'Dumper';
  61.     print Dumper [ \@_ ];
  62. };
  63.  
  64. 1;
  65.