package My::Class;
use Object::InsideOut;

my @FLYBEHAVIOUR :Field( 'Accessor' => 'FLYBEHAVIOR', 'Restricted' => 1 );

my @QUACKBEHAVIOUR :Field( 'Accessor' => 'QUACKBEHAVIOR', 'Restricted' => 1 );

1; # modules need to return true

##</code><code>##

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