最近は Perl を勉強していなくて、続・初めてのPerl 改訂第2版 を読んだこともないです。
妹
— ひさいち (@hisaichi5518) 2015, 2月 18
題材はなんでも良かったので、さいきん話題の妹を作ってみた。
妹なのに姉になれて便利。
is_imouto
use Acme::Ane qw(ane); use Acme::Imouto qw(imouto); if (imouto(ane $girl)->is_imouto) { print "妹可愛い" }
is_kawaii
use Acme::Ane qw(ane); use Acme::Imouto qw(imouto); if (imouto(ane $girl)->is_kawaii) { print "妹可愛い" }