well this is an obvious solution (okay maybe only obvious to my cloudy little mind):

sub AUTOLOAD {
    my $self=shift;
    my $method=$AUTOLOAD;
    my $PSEUDO_PARENT = 'A';
    $method=~s/^.*:://;
    return if $method eq 'DESTROY';
    if (certain conditions are met) {
          do something
    }
    else {
       #dynamically call the pseudo parent function
       my $return_value = eval("&{$PSEUDO_PARENT"."::"."$method}".'($s
+elf, @_)');
       
       #catch eval error!
       if( $@ ) {
          die $@;
       }
       
       #return whatever the eval'd function returned
       return $return_value;
    }
  }
[download]

The problem with this is hardcoding the parent class in, instead of using SUPER. And with a combination of eval and AUTOLOAD you are sure to not the the optimal performance.