- unshift @classes,$class if $class ne __PACKAGE__;
- for my $pkg (reverse @classes) {
+ @classes=[$class,@classes] if $class ne __PACKAGE__;
+ for my $item (reverse @classes) {
+ my $pkg=(!ref($item) ? $item : $item->[0]);
+ my @args=@{$item}[1..$#$item] if ref $item;