use Cwd qw/abs_path/;
use File::Temp qw/tempdir/;
use File::Slurp;
-use Data::Dumper;
+use Data::Dump qw/dump/;
use Time::HiRes qw/time/;
use blib;
ok(my $path = tempdir( CLEANUP => 1 ), "path");
-ok(my $db = new WebPAC::Store(
- path => $path,
+ok(my $db = new WebPAC::Store({
database => '.',
-), "new Store");
+}), "new Store");
ok(my $norm_pl = read_file( $normalize_set_pl ), "set definitions: $normalize_set_pl" );
my $row = $isis->fetch || next;
- diag " row $pos => ",Dumper($row) if ($debug);
+ diag " row $pos => ",dump($row) if ($debug);
my $t = time();
ok( my $ds = WebPAC::Normalize::data_structure(
), "Set data_structure");
$t_norm += time() - $t;
- diag " ds $pos => ",Dumper($ds) if ($debug);
+ diag " ds $pos => ",dump($ds) if ($debug);
ok(my $html = $out->apply(
template => 'html.tt',