PerlのモダンなOOPを学んでいく過程のメモ。 readerオプションとwriterオプションについて #!/usr/bin/perl package Person; use Moose; has 'first_name' => ( is => 'rw', writer => 'setFirstName', reader => 'getFirstName', ); package main; my $taro = Person->new(); $taro->setFirstName('TARO'); print $taro->getFirstName();