Re: End of subroutine

It is used outside the subroutine, your question is actually: why is 1; used at the end of a module?

A use statement (as in use module;) evals the contents of a file. The last expression in the file must evaluate to true, or the eval dies.

UPDATE: Correction of my statement by ikegami (see below);

Confucius says kill mosquito unless cannon

Comment on Re: End of subroutine

Replies are listed 'Best First'.
Re^2: End of subroutine by ikegami (Patriarch) on Nov 07, 2008 at 05:29 UTC
A use statement (as in use module;) evals the contents of a file. The last expression in the file must evaluate to true, or the eval dies. Not quite. `eval` never dies based on the value returned by the evaluated expression. `>perl -e"eval { 0 }" >` [download] `require` (and thus `use`) dies if the values returned by the module is false. `>copy nul Module.pm 1 file(s) copied. >perl -e"use Module;" Module.pm did not return a true value at -e line 1. BEGIN failed--compilation aborted at -e line 1. >echo 1; > Module.pm >perl -e"use Module;" >` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: End of subroutine
by ikegami (Patriarch) on Nov 07, 2008 at 05:29 UTC

A use statement (as in use module;) evals the contents of a file. The last expression in the file must evaluate to true, or the eval dies.

Not quite. eval never dies based on the value returned by the evaluated expression.

>perl -e"eval { 0 }"

>
[download]

require (and thus use) dies if the values returned by the module is false.

>copy nul Module.pm
        1 file(s) copied.

>perl -e"use Module;"
Module.pm did not return a true value at -e line 1.
BEGIN failed--compilation aborted at -e line 1.

>echo 1; > Module.pm

>perl -e"use Module;"

>
[download]

[reply]
[d/l]
[select]