deduce sequence name from table and column

Hi,

Is there a way (from DBI) to deduce a sequence name from the table and
column it is attached to?

For instance:

Column | Type | Modifiers
-------------+---------+--------------------------------------------------------------------------
id_fonction | integer | not null default nextval(('"fonction_id_fonction_seq"'::text)::regclass)

I'd like to be able to programmatically find "fonction_id_fonction_seq"
so that I can then call nextval() on it.

Thanks,

--
Only half the people in the world are above average intelligence.