package Human::Base;
use Pony::Object;

    public name   => '';
    public height => undef;
    public weight => undef;
    
    sub init : Public
        {
            my $this = shift;
               $this->name = shift;
        }

1;