File Coverage

samples/My/db.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package My::db;

use DB2::db;

our @ISA = qw(DB2::db);

sub db_name { 'MYDB' }

sub setup_row_table_relationships
{
    my $self = shift;
    $self->add_table(
                     'Employee',
                    );
    $self->add_table(
                     'Product',
                    );
}

1;