2007-05-01から1ヶ月間の記事一覧
sub func1 { my $self = shift; my $result = $self->func2; } sub func2 { my $self = shift; $self->check_wantarray; $self->dummy; } sub check_wantarray { my $self = shift; print defined(wantarray) ? (wantarray ? 'ARRAY' : 'SCALAR') : 'VOID'; …