method渡したかった。 1 package Hoge; 2 use strict; 3 use base qw/Class::Accessor::Fast/; 4 5 sub run(&;$) { 6 my ($method,$num ) = @_; 7 for(1..$num){ $method->($_) } 8 } 9 10 sub test { 11 my ($self, $num) = @_; 12 print $num."\n"; 13 } 1…