朝: パン
昼: オムそば
// 地味にうれしいこと
perlネタでid:dankogaiさんからはてスタをもらった。
>|
sub love {
my $self = shift;
my $lover = shift;
my $cost = $lover->cost;
$self->money =- $cost;
$lover->money =+ $cost;
$self->bankrupt = 1 if $self->money }
while(!$i->bankrupt){
$i->love($you);
}
$i->good_bye($you);
|
