1#!/usr/bin/perl -w 2 3use strict; 4use Test::More tests => 3; 5 6use Class::DBI; 7 8package A; 9@A::ISA = qw(Class::DBI); 10__PACKAGE__->columns(Primary => 'id'); 11 12package A::B; 13@A::B::ISA = 'A'; 14__PACKAGE__->columns(All => qw(id b1)); 15 16package A::C; 17@A::C::ISA = 'A'; 18__PACKAGE__->columns(All => qw(id c1 c2 c3)); 19 20package main; 21is join (' ', sort A->columns), 'id', "A columns"; 22is join (' ', sort A::B->columns), 'b1 id', "A::B columns"; 23is join (' ', sort A::C->columns), 'c1 c2 c3 id', "A::C columns"; 24