perl-class-trigger