+{
+ package CGIXFail;
+ use vars qw($AUTOLOAD);
+ sub new { bless {}, __PACKAGE__ }
+ sub DESTROY {}
+ sub AUTOLOAD {
+ my $self = shift;
+ my $meth = ($AUTOLOAD =~ /::(\w+$)/) ? $1 : die "Invalid method $AUTOLOAD";
+ die "Not calling CGI::Ex method $meth while testing App";
+ }
+}