dump_head_revs #1

#!/usr/local/bin/perl -w

use strict;
use VCP::Debug qw( :debug );
BEGIN { enable_debug ".*"; }

use VCP::HeadRevsDB;

my $db = VCP::HeadRevsDB->new( @ARGV ? ( StoreLoc => shift ) : () );
$db->open_existing_db;

my( @keys, @vals );

my $w = 0;

while ( my ( $k, $v ) = each %{$db->{Hash}} ) {
    $w = length $k if length $k > $w;
    push @keys, $k;
    push @vals, [ $db->unpack_values( $v ) ];
}


my $f = "%-${w}s => %s\n";
while ( @keys ) {
    my @v = @{shift @vals};
    printf $f,
        shift @keys,
        @v == 1
            ? $v[0]
            : join join( ",", @v ), "(", ")";
}