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