Checking pet owners in script files

[Cottus]

I have a quest file which basically has the following:

sub EVENT_ATTACK {
    quest::shout("$name is attacking me (level $ulevel)");
}

sub EVENT_AGGRO {
    quest::shout("$name has aggroed me (level $ulevel)");
}

This NPC casts an aoe. Now I have my warrior and a mage with a pet, lets call him Larer.

When my warrior attacks I get

"Cottus has aggroed me (level 60)"
"Cottus is attacking me (level 60)"

Then the aoe goes off and I get:
"Larer000 is attacking me (level 49)".

The aggro event never fires for the mage, even though the mage makes it onto the hatelist. And the attack event only fires for the pet, which makes sense.

Is there any way in the perl script to check if the "client" is a pet in the attack portion and get its owner? Calling $mob->GetOwnerID() doesnt seem to work, nor does $mob->GetOwnerOrSelf().