What does " 1; " mean ?

[bluegroper]

What does 1; mean in perl ?
Amusing how its impossible to google for "1;" :smile:
Does 1; mean exit; ??
Or does 1; mean return to the calling module ?
TIA's
- BG

 

[mbrooks]

In the case you have a module or script that consists of only subroutines. 1 returns true when 'require'd or 'use'd.

M. Brooks

http://mbrooks.info

 

[Kirsle]

For a more detailed explanation, 1 is the return value of a require or use.

That being said, the 1; could be a hashref that could be returned from the require statement, eg.

# subs.pl - full of random subroutines
sub one {
}

sub two {
}

sub three {
}

# return a hashref
{
   name => 'subs.pl',
   description => 'Has tons of useless empty subroutines',
};

my $info = require "subs.pl";
print $info->{description}, "\n";