if (!$Pairs{$Thing}) {
warn("guessing construction/destruction pattern for $Thing\n");
$Pairs{$Thing} = [
- "\\b$Thing construct.*, this=(\\S+)",
- "\\b$Thing destruct.*, this=(\\S+)",
+ "\\b${Thing}:? construct.*, this=(\\S+)",
+ "\\b${Thing}:? destruct.*, this=(\\S+)",
];
}