1 2 3 4 5 6 7 8
package My::Suite::Sysschema; @ISA = qw(My::Suite); use strict; return "Need perfschema engine" unless exists($::mysqld_variables{'performance-schema'}) ; bless { };