[snip]

package Foo;
use fields qw(foo bar _Foo_private);
sub new {
    my Foo $self = shift;

[snip]