$ prove -lrv 11107494.pl

11107494.pl ..
# Subtest: With no args
    ok 1 - exception on no args
    1..1
ok 1 - With no args
# Subtest: With bad type
    ok 1 - threw Regexp ((?^:Not a DB handle nor a hashref))
    1..1
ok 2 - With bad type
# Subtest: With existing handle
    ok 1 - Found a DB
    ok 2 - 'No exception with handle passed in' isa 'MyClass'
    ok 3 - Found a DB via obj
    1..3
ok 3 - With existing handle
# Subtest: With bad params
    ok 1 - threw Regexp ((?^:coercion for "dbh" failed))
    ok 2 - threw Regexp ((?^:Access denied for user))
    1..2
ok 4 - With bad params
# Subtest: With params
    ok 1 - 'No exception with args hash passed in' isa 'MyClass'
    ok 2 - Found a DB via obj
    ok 3 - No DSN accessor!
    1..3
ok 5 - With params
1..5
ok
All tests successful.
Files=1, Tests=5,  0 wallclock secs ( 0.01 usr  0.00 sys +  0.09 cusr  0.01 csys =  0.11 CPU)
Result: PASS