Re: Method autovivification with variable values?

[Brovnik]

Turn attach into a function that stores the data internally and can do the checking.

{
   my %store = ();

sub attach
{
   my ($type, $value) = @_;
   if ($value)
   {
      $store{$type} = $value};
   }
   else
   {
      my $default = "height=19 width=15 src='/images/attach/UNKNOWN.gi
+f' border=0";
      return $store{$type} if $store{$type};
      $default =~ s/UNKNOWN/$type/;
      return $default;
   }
}
}

# Now, call 
attach('file',"height=19 width=15 src='/images/attach/file.gif' border
+=0");
attach('URL',"height=19 width=15 src='/images/attach/URL.gif' border=0
+");
# to initialise, and 
attach($mime_type);
# to access

If you want to objectise it, make attach a method of the {image} object.

Or, hide the function part by using Tie::Hash and tweaking the FETCH function to provide a default.
--
Brovnik

[tame1]

We ended up changing $configs{images}{attach} to be a directory.
So it worked like this

package MY::PATH::Config.pm
...... more code ......
$configs{images}{attach} = "/path/to/image/dir/";

and later, in another module

my $img = "$configs{images}{attach}" . "$att->{mime_type}" . ".gif";
<img src=$img>

Which works, and allows us to pass almost any image type.
We even made a ".gif" file (a copy of our unknown.gif) to
handle blank mime types.

Thanks for all the help everyone.

What does this little button do . .<Click>; "USER HAS SIGNED OFF FOR THE DAY"