[CDBI] Deep recursion

Arshavir Grigorian grigorian at gmail.com
Wed Aug 8 02:23:36 BST 2007


Hi,

I have a table with a primary key called "id". When I make an insert
into that table, then try to get the primary key, I get into deep
recursion:

__PACKAGE__->table('tab');
__PACKAGE__->columns(Primary => 'id');
__PACKAGE__->columns(All => qw/id .../);

...

my $obj = TAB->insert($href);
my $id = $obj->id;

And in the logs, I see a lot of:

        Class::DBI::_flesh('TAB=HASH(0x9102a08)', 'Primary') called at
/usr/local/share/perl/5.8.7/Class/DBI.pm line 844
        Class::DBI::get('TAB=HASH(0x9102a08)', 'id') called at
/usr/local/share/perl/5.8.7/Class/Accessor.pm line 393
        Class::Accessor::__ANON__('TAB=HASH(0x9102a08)') called at
/usr/local/share/perl/5.8.7/Class/DBI.pm line 857


TIA.

Arsh



More information about the ClassDBI mailing list