Trying to load other perl scripts use() or require()

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

ok, I have a script called cart.pm that just has subroutines, but whenever I try to load I get an error

cart.pm did not return a true value at /home/dtdynoco/public_html/admi
+n1130/admin.cgi line 12.
[download]

and my code..

require "cart.pm";
[download]

Comment on Trying to load other perl scripts use() or require() Select or Download Code

Replies are listed 'Best First'.
Re: Trying to load other perl scripts use() or require() by dpuu (Chaplain) on Jul 21, 2002 at 04:58 UTC
Add a line to the end of cart.pm that returns a true value. Traditionally: `1;` [download] (that's a number, one). --Dave.	[reply] [d/l]
Re: Trying to load other perl scripts use() or require() by gav^ (Curate) on Jul 21, 2002 at 04:59 UTC
Make sure your module returns a true value. The last line should be something like: `1;` gav^	[reply] [d/l]
Re: Re: Trying to load other perl scripts use() or require() by dpuu (Chaplain) on Jul 21, 2002 at 05:16 UTC
The value of any block in Perl is the result of the last statement in that block. If a block is a subroutine, then the result of the subroutine is the result of the block. You can use a "return" statement to exit the sub before the end; and at the end of the sub to be explicit about your intent. Modules are blocks. (Strangely, this doesn't apply to scripts: you have to use exit($value) to return a value from a script.) --Dave.	[reply]
Re: Re: Trying to load other perl scripts use() or require() by Anonymous Monk on Jul 21, 2002 at 05:11 UTC
ty I dont remeber reading this in my book. so 1 is just like return(1);	[reply]
Re: Trying to load other perl scripts use() or require() by FamousLongAgo (Friar) on Jul 21, 2002 at 05:47 UTC
One of the many nice things to look forward to in Perl 6 is that this bit of cruft will go away. I've found that using h2xs to auto-generate modules is a good way to avoid omissions like this, and put in stub documentation, too.	[reply]
Re: Trying to load other perl scripts use() or require() by mitd (Curate) on Jul 21, 2002 at 05:09 UTC
Is it just me or /home/dtdynoco showing up in alot of ?? lately. :) append: `1;` [download] to the end of cart.pm. Then go directly to perlmod do not pass go and read why. mitd-Made in the Dark 'Interactive! Paper tape is interactive! If you don't believe me I can show you my paper cut scars!'	[reply] [d/l]


good chemistry is complicated, and a little bit messy -LW
	PerlMonks