I put Tie::IxHash::Easy and Tie::Autotie on CPAN just now. (It may take a few hours for those links to resolve, so be patient. You can access the modules from my modules page.)

See Re: HoHoH Insertion Order for information about Tie::IxHash::Easy. The other module is a generalization of the concept of automatically tying data structures in an already-tied data structure.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;
  • Comment on Tie::IxHash::Easy and Tie::Autotie on CPAN

Replies are listed 'Best First'.
Re: Tie::IxHash::Easy and Tie::Autotie on CPAN
by samtregar (Abbot) on May 12, 2004 at 20:28 UTC
    You can access the modules from my modules page.

    I see them listed there, but the links to the docs are broken. They appear to contain text from the docs the themselves!

    -sam

      Well, yeah. It brings you to the directory for the source, which contains the POD as text in a README file. Once they appear on CPAN, you can just use CPAN to read the docs in a nicer format.

      Oh. Fixing... update: fixed.

      Let this be a lesson to you:

      for my (grep -d, glob "*") { (my $mod = $_) =~ s/-/::/g; my ($latest) = sort { $b <=> $a } map /.*-(\d+\.?\d*)/, glob "$_/*"; my $what = ""; open README, "< $_/$_-$latest/README"; while (<README>) { # AGH! THIS KILLED MY OLD $_ ($what) = /$mod - (.*)/ and last; } close README; print "<h2><tt>$mod $latest</tt></h2>\n"; print "<b>\u$what</b>\n"; print "<ul><li><a href='$_/$_-$latest/'>Documentation</a> and source +\n"; print "<li><a href='$_/$_-$latest.tar.gz'>Download</a></ul>\n"; }
      If you follow that code carefully, you'll see why the links were messed up. When I read from README, I was setting $_ each time, which clobbered the $_ that held the filename.
      _____________________________________________________
      Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
      s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;