- @{$r->params->{qw(title publisher author year)} =
- ($prop->title,
- $prop->publisher,
- (join "/", $prop->authors()),
- $prop->year());
+ $r->params->{title} = $book_info->title;
+ $r->params->{publisher} = $book_info->publisher;
+ $r->params->{year} = $book_info->year;
+ $r->params->{author} = join('and', $book_info->authors());
+