Select Code to Download

package Bar;
use Data::Dumper;
...
sub bar
{
    my $arg = shift;

    if(ref($arg) eq 'ARRAY') {
        return map {
            $_->bar;
        } @{ $arg };
    }

    print "bar\n";
}
...
}

package main;

use autobox ARRAY => 'Bar';

Foo->new->foo->bar; 
#no more "Can't call method "bar" on unblessed reference"
#because now ->bar is a native method of ARRAYREFs.
#actually all the methods of Bar are native methods on ARRAYREFs now.