Help for this page

Select Code to Download


  1. or download this
    =Starting CASE 1
=...
...
(destroyed above)
(destroyed above)
(destroyed above)
  2. or download this
    =Starting CASE 1
=...
...
Destroying DBIx::Simple
Destroying DBIx::Simple::Statement
Destroying DBIx::Simple::DeadObject
  3. or download this
    # use Devel::SimpleTrace;

...
main() unless caller;

1;
  4. or download this
            warn "Starting CASE 4";
        {    # CASE 4 - also fails
...
            ok( $r->{st}->isa($desired_class), $desired_desc );

        }