toychain/t/dagread.t

#!/usr/bin/perl

BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
use YAML::Syck qw(Dump);
use DAG qw(DAGRead);


my $blk = &DAGRead('blocks','123');


printf "--- # blk %s...\n",Dump($blk);

exit $?;
1;