#!/usr/bin/perl

package Person;
use Moose;

has 'name' => ( is  => 'ro', isa => 'Str', required => 1);
has 'age'  => ( is  => 'ro', isa => 'Str');

sub show_person {
   my $self = shift;
   return $self->name() . " " . $self->age();
}

__PACKAGE__->meta->make_immutable;
no Moose;
1;

my $person = Person->new(name => "Bob");
print "\n", $person->show_person(), "\n";