Select Code to Download

use TESTOBJ;
my @res = ();
...
printf "Dump \$res[1]:  name '%s' mpp '%d'\n", 
                     $res[1]->name(), $res[1]->mpp0();

package TESTOBJ;

...
    @_ ? $obj->{__mpp}[0] = shift  # modify attribute
       : $obj->{__mpp}[0];         # retrieve attribute
}