package Foo;
    use strict;
    use fields qw(_foo);
    ...

##</code><code>##

    package Bar;
    use strict;
    use base 'Foo';
    use fields qw(_bar _baz);
    ...

##</code><code>##

    package Foo;
    use strict;
    use fields qw(unused _foo);
    ...