8 |
/; |
/; |
9 |
use Data::Dumper; |
use Data::Dumper; |
10 |
use WebPAC::Store 0.08; |
use WebPAC::Store 0.08; |
11 |
use WebPAC::Output::TT 0.06; |
use WebPAC::Output::TT 0.07; |
12 |
use WebPAC::Search::Estraier 0.05; |
use WebPAC::Search::Estraier 0.05; |
13 |
use File::Slurp; |
use File::Slurp; |
14 |
use Time::HiRes; |
use Time::HiRes; |
15 |
use Encode qw/encode decode from_to/; |
use Encode qw/encode decode from_to/; |
16 |
|
use Data::HTMLDumper; |
17 |
|
|
18 |
=head1 NAME |
=head1 NAME |
19 |
|
|
96 |
|
|
97 |
$self->{out} = new WebPAC::Output::TT( |
$self->{out} = new WebPAC::Output::TT( |
98 |
include_path => $template_path, |
include_path => $template_path, |
99 |
filters => { foo => sub { shift } }, |
filters => { |
100 |
|
dump_html => sub { |
101 |
|
my $t = shift || return; |
102 |
|
#return Data::HTMLDumper->Dumper( $t ); |
103 |
|
return Data::HTMLDumper->Dump([$t],[qw/dump/]); |
104 |
|
} |
105 |
|
}, |
106 |
); |
); |
107 |
|
|
108 |
# default template from config.yaml |
# default template from config.yaml |
144 |
|
|
145 |
my $log = $self->{log}; |
my $log = $self->{log}; |
146 |
|
|
147 |
$log->debug("args: " . Dumper( $args )); |
$log->debug("search args: " . Dumper( $args )); |
148 |
|
|
149 |
my $query = $args->{phrase} || $log->warn("no query phrase") && return; |
my $query = $args->{phrase} || $log->warn("no query phrase") && return; |
150 |
|
|
261 |
|
|
262 |
my $args = {@_}; |
my $args = {@_}; |
263 |
my $log = $self->{log}; |
my $log = $self->{log}; |
264 |
$log->debug("args: " . Dumper( $args )); |
$log->debug("record args: " . Dumper( $args )); |
265 |
|
|
266 |
foreach my $f (qw/record_uri template/) { |
foreach my $f (qw/record_uri template/) { |
267 |
$log->fatal("need $f") unless ($args->{$f}); |
$log->fatal("need $f") unless ($args->{$f}); |