I'm getting a warning on line 10 or 11. The program works. I'd like to get
rid of the warnings however. When I change "%hash" to "$hash" on lines 10-11
then the program does not work at all then.
Thanks,
Siegfried
1 package case;
2 our @EXPORT = qw( $crimhelp $evhelp $civhelp $rkhelp);
3 package CaseFactory;
4 require Exporter;
5 use case_constants qw(:DEFAULT btRankSuspects);
6 use strict;
7 use warnings;
8 #($crimhelp, $evhelp, $civhelp) = ("","","");
9 sub mfr {
10 my ($me, %hash )= @_;
11 my $type = %hash->{base_type};
12 if ($type == &case_constants::btRankSuspects ){
13 return RA->new($type, @_); }
14 elsif ($type == &case_constants::btCompareAssertions){
15 return CA->new($type, @_); }
16 elsif ($type == &case_constants::btCriminal){
17 return CR->new($type, @_); }
18 elsif ($type == &case_constants::btEvidenceEvaluation){
19 return EV->new($type, @_); }
20 elsif ($type == &case_constants::btCivil){
21 return CI->new($type, @_); }
22 else{
23 return Case->new($type, @_);
24 }
25 }
26 sub new {
27 my $invocant = shift;
28 my $class = ref($invocant) || $invocant;
29 my $self = { @_ };
30 bless($self, $class);
31 return $self;
32 }
33
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
