Is it possible (in a plperl function) to know if an update is from aforeign key cascade, rather than just a user submitted updatestatement?