Select Code to Download

package TestModule;
require DBI;
...
    
    bless $obj, $self;
}

use Test::More tests => 9;
# ... snipped setup of $obj = new & etc.
...

# this fails:
isnt  ($sth, undef, 'prepare creates statement handle');

sub AUTOLOAD {
    my $op = $AUTOLOAD;
...
        eval "sub $op { return shift->error('Cannot autoload $op'); }"
+;
    }
}

# sets up autoload subs that 'inherit' DBI's DBH methods
sub AUTOLOAD {
...
        return $self->error("Cannot autoload $op");
    }
}