package Foo;
use base qw(Class::InsideOut);
use Class::InsideOut::Accessor; # build accessors for Fields

use %foo : Field;  # foo method built automatically

no Class::InsideOut::Accessor;  # stop building accessors

use %bar : Field;  # no accessor sub built

sub bar { whatever... };