私は、リモート ファイル システムからプレーン データを取得する純粋な perl サービス クラス PlainData を持っています。テキストとステータス フラグ (エラー、警告) を生成するパッケージ PlainData。どうすればそれを perl mason Web コンテキストに (配置、リンク) できますか。私はこのようなことをします:
<%init>
use PlainData;
my $stn = $ARGS{"STN"};
my $yr = $ARGS{"YR"};
my $mo = $ARGS{"MO"};
my $dy = $ARGS{"DY"};
...do something with $stn,$yr,$mo,$dy,
my $plainDataHandler = new PlainData();
my ($status, $text) = $plainDtaHandler->listStationsByDay( $stn, $yr, $mo, $dy);
if ($status>10) {
print "<h1>ERROR REQUEST DATA STATIONS</h1>\n";
print $text;
} else {
print $text;
}
</%init>
私も試してみました
my $plainDataHandler = $m->comp('/var/perl/PlainData.pm');