package Data::CryptRecord;

use warnings;
use strict;

{
    our %ENGINES = (...);
}


sub set_engine {
    my($self, $name) = @_;
    our %ENGINES;
    ...
}