将已有程序子程序编辑为包，调用时候的问题

包为以下：
package Util::Mail;

use strict;
use warnings;
use Net::SMTP;

sub new
{
my($class,$mtahost,$mtaport)=@_;
my $smtp = Net::SMTP->new('Host'=>$mtahost,'Port'=>$mtaport)||die "[WARN] Can't connect to SMTP host\n";
return $smtp;}

sub sendm
{
my ($smtp,$msg)=@_;
$smtp->mail("monitor\@dangdang.com");
$smtp->recipient("jsliyan\@dangdang.com");
$smtp->data();
$smtp->datasend("From: Server Monitor <monitor\@dangdang.com>\n");
$smtp->datasend("To: SA Team <sa\@dangdang.com>\n");
$smtp->datasend("Subject: Server Warnings\n");
$smtp->datasend("\n");
for (@$msg) {
$smtp->datasend("$_\n");
}
$smtp->dataend();
$smtp->quit;
}

1;

使用程序调用的时候：
my $mail=Util::Mail->new('127.0.0.1','25');
$mail->Util::Mail::sendm($warns);         
可以实现，如果换成下：
my $mail=Util::Mail->new('127.0.0.1','25');
$mail->sendm($warns);          就报：Can't locate object method "sendm" via package "Net::SMTP"

请问有其他写法可以实现调用吗

在目标方法里，第一个参数是$self，要shift出来。

回复 兰花仙子


    了解了。还有就是我用那个调用必需是这样才行，$mail->Util::Mail::sendm($warns)
   不可以用$mail->sendm($warns).还用其他写法可行吗？

因为你没有祈福
所以Util::Mail->new出来的其实不是一个Util::Mail，而是一个Net::SMTP

回复 yiten


    一针见血 谢谢。

回复 yiten

这样祈福以后，那个sendm方法调用就报 Can't locate object method "mail" via package "Util::Mail" ，这个方法写的问题了。请帮忙看看

帮你写一下吧： 调用：