use strict;
use warnings ;

package Testing3;
use base 'Testing';

Testing3->table('test_b');
Testing3->columns(Primary => qw/oid/ ) ;
Testing3->columns(Essential => qw/aoid flag/ ) ;
Testing3->has_a( aoid => 'Testing2');

sub DESTROY {
    my $self = shift;
    print STDERR "Destroying b " . $self->oid . "\n";
}

1;