Simple readonly hash object

gistfile1.txt

use strict;
use warnings;
use feature qw( say );

package Hash::Object;

sub new {
    my ( $class, %self ) = @_;
    return bless { %self }, $class;
}

our $AUTOLOAD;
sub AUTOLOAD {
    my ( $self ) = @_;
    my ( @parts ) = split /::/, $AUTOLOAD;
    return $self->{ $parts[-1] };
}

package main;

my $hobbit = Hash::Object->new( name => 'Frodo', home => 'Bag End' );
say $hobbit->name;