problem with Class-dbi set_up_table function(no primary key error)

[noumene]

Hi,
sorry to bother you again.
 I am still trying to load data in my db2 database using class-dbi in a
perl script.
I am blocked on the dbi set_up_table function called in my script:
Chado::Tableinfo->set_up_table('tableinfo');

This is the error i got:
Chado::Tableinfo has no primary key at
/usr/lib/perl5/site_perl/5.8.3/Chado/LoadDBI.pm line 5
Compilation failed in require at
/usr/lib/perl5/site_perl/5.8.3/Chado/LoadDBI.pm line 5.
BEGIN failed--compilation aborted at
/usr/lib/perl5/site_perl/5.8.3/Chado/LoadDBI.pm line 5.
Compilation failed in require at /usr/bin/gmod_load_ontology.pl line 7.
BEGIN failed--compilation aborted at /usr/bin/gmod_load_ontology.pl line 7.

My table has a primary key as you can see below.

create table tableinfo (
    tableinfo_id Integer Generated AS IDENTITY (NO CACHE) NOT NULL,
    name varchar(30) not null,
    primary_key_column varchar(30),
    is_view smallint not null default 0,
    view_on_table_id int,
    superclass_table_id int,
    is_updateable smallint not null default 1,
    modification_date date not null default CURRENT DATE,
    constraint tableinfo_c1 unique (name)
) IN general_tab
  INDEX IN general_idx
  LONG IN general_lrg;

CREATE UNIQUE INDEX PK_tableInfo
       ON tableinfo (tableinfo_id)
       ALLOW REVERSE SCANS;

ALTER TABLE tableinfo
       ADD CONSTRAINT PK_tableinfo PRIMARY KEY (tableinfo_id);

Any proposition?
thanks
etienne