Re: Puzzled about strict

Check the eval block in your FETCH method. You're doing:

next if ($@);
[download]

The code you're evaluating is violating one of the restrictions imposed by strict.pm and is causing a fatal exception, meaning that the code isn't doing what you expect it to.

update
There is only one eval expression, changed "eval blocks" to "eval block"

Comment on Re: Puzzled about strict Download Code

Replies are listed 'Best First'.
Re: Re: Puzzled about strict by djantzen (Priest) on Oct 30, 2002 at 05:23 UTC
Specifically, the error is: `"Can't use string ("a") as a subroutine ref while "strict refs" in use + at line [eval { $result .= &{$_}(@time); };]"` [download] If you must, you can turn off strict ("no strict 'refs'") immediately before that eval and turn it back on immediately after. Update: Just another thought, why not store your subroutines in a hash where the format strings are the keys? Something like: `my %method_map = (a => sub { ... }, A => sub { ... } ); my $token = 'a'; # or 'A', 'D', etc. my $result .= $method_map{$token}->(@args);` [download] This is strict compatible and IMO is more maintainable code.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Re: Puzzled about strict
by djantzen (Priest) on Oct 30, 2002 at 05:23 UTC

Specifically, the error is:

"Can't use string ("a") as a subroutine ref while "strict refs" in use
+ at line [eval { $result .= &{$_}(@time); };]"
[download]

If you must, you can turn off strict ("no strict 'refs'") immediately before that eval and turn it back on immediately after.

Update: Just another thought, why not store your subroutines in a hash where the format strings are the keys? Something like:

my %method_map = (a => sub { ... }, A => sub { ... } );
my $token = 'a'; # or 'A', 'D', etc.
my $result .= $method_map{$token}->(@args);
[download]

This is strict compatible and IMO is more maintainable code.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom