package B;
    sub init {
        my $self = shift;
        @$self {qw /_foo _bar/} = @_;
    }
    sub init {
        my $self = shift;
        @$self {qw /_baz _qux/} = @_;
    }