sub AUTOLOAD {
    no strict;
    my $METHOD;
    ($METHOD = $AUTOLOAD) =~ s/.*:://;
    foreach my $PARENT (@ISA) {
        if(defined &{$PARENT.'::'.$METHOD}) {
            goto &{$PARENT.'::'.$METHOD}
        }
    }
}