April 2010 Archives

is just a base module responsible for loading extension (Data::Keys::E::*) during the object build time. It just makes sure one of the extensions supplied get() and set() method. The rest is up to the extensions.

get() should be called with one argument a $key and return value for it. set() should be called with $key and $value arguments returning modified (if it was) $key.

So far I've created this extensions:

• Store::Dir - folder storage
• Store::Mem - in memory storage
• Dir::Auto - auto create folder when needed
• Key::Adapt - change key with a callback
• Key::Auto - auto create key via callback
• UniqSet - a key can be set only once
• Value::InfDef - inflate/deflate values
• Locking - get/set locking
• Dir::Lock - uses additional folder to lock files
• Dir::LockInPlace - place locks directly on the stored files

How I want to use it now? Value::InfDef to help reading folders full of JSON files. Key::Auto to store data as Git does - based on the hash of data. Key::Adapt to easily access Debian distribution files in the pool folder or CPAN distributions files based on the AUTHORID/DISTRIBUTION in CPAN mirror folder structure.

For now there is just folder storage as I want to use it for some tasks, but it should be quite easy to create any key/value storage extension.

This was an old idea and I finally found enough toits to finish it. Basically besides normal key words searching, one can use a tag cloud to help find alternatives. Here are some examples:

• +Perl tips
• just search for it
• match algebra +solving
• Wien Wochenende -buchen [de]

By clicking on any of the links in the cloud the keyword/tag is added to the search string. On the top there are "+" and "-" that can be selected before selecting a tag. The selected "+" or "-" will be added in front of the keyword to force inclusion of exclusion of a keyword in the search result documents.

Only time and some usage will tell if it will be useful or not. Let's see.

So the Perl QA Hackathon 2010 is over. My part in it was mainly to help with organizing, but with a specification from Gregoa and a help from Potyl a new debian-perl quality script was created - patchedit.

Patchedit works in two modes edit and check. In the edit mode it will fire-up an editor and optionally add a missing patch description fields. In the check mode it can test the fields and output TAP based on the ok/fail. Thanks to this and TAP::Formatter::HTML it was easy to create a page with the patch "health" status. Here is how:

find -name series | perl -MIO::Any -MFile::Basename=dirname -ne 'chomp; my $s = $_; my $bd=dirname($s); my @pl=map { $bd."/".$_ } grep { $_ !~ m/^\s*$/ } map { chomp; $_ } split("\n", IO::Any->slurp($s)); print map { $_."\n" } @pl;' | xargs prove --exec "patchedit check -o" -m -Q --formatter=TAP::Formatter::HTML > output.html

The output page can be found here.

You can watch the final stand-up video with the achievements at brian d foy blog.