package My::Class;
use Class::InsideOut ':std';

private FLYBEHAVIOR   => my %FLYBEHAVIOR;
private QUACKBEHAVIOR => my %QUACKBEHAVIOR;

sub new { register( bless \(my $scalar), shift ) }

1; # modules need to return true