1 2 3 4 5 6 7 8 9
package My::Suite::Archive; @ISA = qw(My::Suite); return "Need Archive engine" unless $ENV{HA_ARCHIVE_SO} or $::mysqld_variables{'archive'} eq "ON"; bless { };