package OP;
sub has_my_property { return 1; }

package BINOP;
sub has_my_property { return 0; }

package UNOP;
sub has_my_property { return 0; }