Select Code to Download

package Foo;

...

is_deeply($deserialized, [ qw(foo bar baz) ], 
    "Deserializer decodes correctly");

sub deserialize {
    my ($self, $blackbox) = @_;
...

    return unpack("(w/a)*", $1); 
}

# time to index 1000 documents:
Plucene 1.25        276 secs
Kinosearch 0.021     88 secs
Kinosearch 0.03_02   35 secs
Java Lucene          13 secs