[mongers-it] Fine moduli con '1;'

[< >]

Scusate la domanda stupida che 
mi permetto di fare a voi esperti. Sto 
studiando
il PERL per 
l'applicazione OTRS. Ho notato che molti moduli finiscono con un
'1;' Ha un 
significato ben preciso? Una label? Un return-code?
Ho provato a cercare, ma 
purtroppo con scarso successo!
Grazie 
dell'aiuto.
#---------------------------------------------------------
# 
Esempio
#---------------------------------------------------------
package 
Kernel::Output::HTML::NavBarABC;
use strict;
use warnings;
# --
sub 
new {
my ( $Type, %Param ) = @_;
[...]
return $Self;
}
# 
--
sub Run {
my ( $Self, %Param ) = @_;
my %Return = 
();
$Return{’0999989’} = {
Block => ’ItemPersonal’,
Description 
=> ’Some Desctipton’,
Name => ’Text’,
Image => 
’new-message.png’,
Link => 
’Action=AgentMailbox&Subaction=New’,
AccessKey => ’j’,
};
return 
%Return;
}
# --
1; # <-- COS'E' 
????
#--------------------------------------