package TreeNode; use base 'Class::DBI'; __PACKAGE__->table('forrest'); __PACKAGE__->has_a(parent=>TreeNode); __PACKAGE__->has_many(children=>TreeNode);