How to know if update is from a foreign key cascade in plperl?

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