Subject: | primary key does not get in essential, if essential used in base class |
using perl 5.8.1 on freebsd 4.8
Class::DBI 0.94
the followin line of perl
perl -wle 'package p::x; use base qw/Class::DBI/; p::x->columns(Essential => "ab"); '
-e ' package p::y; use base qw/p::x/; p::y->columns(Primary => "pp");'
-e ' package main; print "Primary ",join(", ",p::y->columns("Primary")); print "Essential ",join(", ",p::y->columns("Essential"));'
The primary key will not be included in the "Essential" list.
It will if Essential was not used in the base class.
it will also if u define another set of essential fields in p::y
(but then you loose the info from the base class, unless you take care of including the SUPER::columns("Essential") (works without SUPER:: too))