#======================================================== # MailPart #======================================================== package MailPart; use Mail::MailFile; @ISA = qw(MailFile); use strict; use Jcode; #============================================================ # 変数等取得関数 #============================================================ #============================================================ # 静的関数 #============================================================ #============================================================ # コンストラクタ、デストラクタ #============================================================ BEGIN { } sub new { my ($module) = @_; my $this = {}; bless $this; return $this; } sub DESTROY { my $this = shift; } #============================================================ # 一般関数 #============================================================ 1;