package Log; # Thank you for # - http://search.cpan.org/~gng/File-Log-1.05/Log.pm # - http://perldoc.jp/docs/modules/File-Log-1.02/Log.pod # - http://www.jp-z.jp/perlmemo/file_FindBin.html # - File::Temp use strict; use warnings; use File:…

package Foo; use strict; use warnings; sub new { my $class = shift; my $self = { piyo => 1, cnt => 0, }; bless $self, $class; return $self; } sub bar { my $self = shift; $self->{cnt}++; return $self->{cnt}; } package main; use strict; use …

xxx.pm をいちいち分割してつくりはじめるのも面倒なので一ファイルに書く方法 404 Blog Not Found:perl - 複数パッケージを含むファイル package Foo; use strict; use warnings; sub bar { my ($class, $msg) = @_; print "$class $msg\n"; return; } pack…