- 论坛徽章:
- 0
|
sub new
{
my $class = shift;
my $self = {};
my $description = shift;
$self->{JobDescription} = $description;
if(defined($description->logfile()))
{
local(*FH);
open(FH, '>>'. $description->logfile());
select((select(FH),$|=1)[$[]);
$self->{log} = *FH;
}
bless $self, $class;
$self->log("New Perl JobManager created.");
return $self;
}
=item $manager->log($string)
Log a message to the job manager log file. The message is preceded by
a timestamp.
=cut
上面的代码是我从一个perl模块里头摘下来的,很明显有一个 new的子过程定义,我想问的是,紧接着new定义之后的代码行:
“ =item $manager->log($string)
Log a message to the job manager log file. The message is preceded by
a timestamp.
=cut”是什么意思啊??这样的格式我以前没见过,请问是用来干什么的? |
|