Re: Optimization Help on Perl Hash Traversal (eval use)

[CountZero]

Adding to BrowserUK's suggestion, you could store your snippets into a YAML file and have them automatically eval-ed upon loading the YAML-file as part of your initialization.

Here is an example:

use Modern::Perl;

use YAML qw/DumpFile LoadFile/;
local $YAML::UseCode = 1;

my $code = {
    snippet1 => sub {
        my $counter;
        for ( 1 .. 10 ) { say; $counter++ }
        say $counter;
      }
};
DumpFile( './snippet.yml', $code );

my $snippets = LoadFile('./snippet.yml'); # <- Put this in the initial
+ization part of your program
&{ $snippets->{snippet1} }; # and run the snippet

Here is the YAML-file:

---
snippet1: !!perl/code |
  {
      use warnings;
      use strict;
      use feature 'say', 'state', 'switch', 'unicode_strings';
      my $counter;
      foreach $_ (1 .. 10) {
          say $_;
          ++$counter;
      }
      say $counter;
  }

As you see that is very well readable and easily editable. Probably easier than adding the code to your database.