use Person;

eval
{
    my $p = Person->new(name => "holli", age => "30");
    print $p->name->get, ", ", $p->age->get, "\n";
};

eval
{
    my $p = Person->new();
    $p->name->set("holli");
    $p->age->set(30);
    print $p->name->get, ", ", $p->age->get, "\n";
};


#this croaks "Can't modify non-lvalue subroutine call at..."
#but shouldn't because the setter should be overloaded
#Can you jump in [Ovid]?
eval
{
    my $p = Person->new();
    $p->name = "holli";
    $p->age  = 30;
    print $p->name->get, ", ", $p->age->get, "\n";
};
print $@;

#croaks "Illegal value assigned for property age..."
eval
{
    my $p = Person->new(name => "Santa Claus", age => "unknown");
    print $p->name->get, ", ", $p->age->get, "\n";
};
print $@;

#croaks "Illegal value assigned for property age..."
eval
{
    my $p = Person->new();
    $p->name->set("Santa Claus");
    $p->age->set ("unknown");
    print $p->name->get, ", ", $p->age->get, "\n";
};
print $@;