My Perl Quiz

Question #23: What gets printed?
47% on 227 times asked

package A;

sub new {
    my $class = shift;
    my $self = {};
    $self->init();
    return bless $self, $class;
};
  
sub init {
    my $self = shift;
    $self->{key} = 'value';
}
 
sub get {
    my ($self, $key) = @_;
    return $self->{$key}; 
}
 

package main;

my $obj = A->new();
print $obj->get('key'), "\n";