sub test2 {
    my $self = shift;
    print tied(@$self)->{ test }, "\n";   # LINE 22
}