neko.pl

#!/usr/bin/env perl
 
use strict;
use warnings;
use utf8;

use TestPackages::Neko;

my $neko1 = Neko->new();
my $neko2 = Neko->new();
 
$neko1->name('rui');
$neko1->color('white');

$neko2->name('chousuke');
$neko2->color('gray');
 
$neko1->says();
$neko2->says();
$neko1->loves();
$neko2->loves();