Select Code to Download

# Autoattr.pm
package Autoattr;
...
    goto \&$AUTOLOAD;
}
1;

#!/usr/bin/perl -w

...
    do {$_->bar(3); $_->bar},
    do {$_->bar(2); $_->bar},
    do {$_->bar(1); $_->bar};

Autoattr::new('Foo')                                                  
+          
Autoattr::AUTOLOAD=Foo::foo('Foo=HASH(0x225140)')                     
+          
...
>>> barbarbar, barbar, bar                                            
+          
                                                                      
+          
Autoattr::DESTROY('Foo=HASH(0x225140)')

Autoattr::new('Bar')                                                  
+          
Autoattr::AUTOLOAD=Bar::foo('Bar=HASH(0x225164)')                     
+          
...
>>> 3, 2, 1                                                           
+          
                                                                      
+          
Autoattr::DESTROY('Bar=HASH(0x225164)')

package Autoattr;
our $DEBUG;
...
    ;
    $AUTOLOAD =~ /([^:]*)$/; goto $_[0]->can($1);     # go to the new 
+symbol
}