NekoClass

package Neko;
 
sub new{
    my $class = shift;
    my $self = {
        name => 'none',
        color => 'none'
    };
    return bless $self,$class;
}
 
 
sub name{
    my $self = shift;
    if(@_){
        $self->{name} = shift;
    }
    return $self->{name};
}
 
sub color{
    my $self = shift;
    if(@_){
        $self->{clolor} = shift;
    }
    return $self->{color};
}
 
sub says{
    my $self = shift;
    print 'my name is '.$self->name().".\n";
    print 'my color is '.$self->color().".\n\n";
}

sub loves{
    my $self = shift;
    print $self->name().' loves azuma(neko)san'."\n";
}
 
1;