perlquestion
JPMH
I've got some weirdness I don't understand when I load a module with Test::More's use_ok()
<p>I was using an array-reference prototype to pass an array by reference without the module user having to fuss about it -- but when I load the module with Test::More's use_ok()
all the prototypes seem to be getting ignored.</p>
<p>What is it I'm missing ?</p>
<p>Here's a cut-down example module, CST2.pm:</p>
<code>
package CST2;
use strict;
use warnings;
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(ArrayCount);
sub ArrayCount(\@) {
(my $array_Ref, undef) = @_;
my $ct;
foreach my $element (@{$array_Ref}) {
$ct++
}
$ct;
}
1;
</code>
and a calling script,
<code>
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
#BEGIN:{ use_ok('CST2'); }
use CST2;
my @patternList = qw(one two three);
my $count = ArrayCount(@patternList);
print "$count\n";
</code>
<p>With <code>use CST2</code> everything works fine.</p>
<p>But if I change to <code>BEGIN:{ use_ok('CST2'); }</code>, then I get an error:
'Can't use string ("one") as an ARRAY ref while "strict refs" in use at CST2.pm line 12.'</p>
<p>To make the error go away, I have to change the call in the script to explicitly pass a reference
<code>my $count = ArrayCount(\@patternList);</code></p>
<p>Why is this happening? What is it I've missed, and should have done differently?</p>
<p>For what it's worth, <code>perl --version</code> tells me I'm running perl 5, version 14, subversion 2 (v5.14.2) built for cygwin-thread-multi-64int (with 7 registered patches, see perl -V for more detail); and it's version 0.98 of Test::More</p>
<p>Thanks in advance,</p>
<p>JH.</p>