Advanced Testing - Michael Schwern

Psuedo DBI

{
    my @arguments;
    local *DBI::connect = sub {
        @arguments = @_;
        return 0;
    }

    ... tests for failure ...

    is($arguments[0], "DBI");
    is($arguments[1], $driver);
    ...
}