October 11th, 2006

tea

(no subject)

Why I love perl

 
   my $string = pack "w*", %$edges;
    my $status = $self->db->put("edge_$id}", $string);

....


   my $status = $self->db->get("edge_$id", $edges);
   return { unpack "w*", $edges };