+#!/usr/bin/perl
+
use FindBin;
use lib $FindBin::Bin.'/code';
use Web::Simple 'Bloggery';
} elsif ($data->isa('Bloggery::PostList')) {
<ul>,
$data->map(sub {
- my $path = '/'.$_->name.'.html';
+ my $path = $_->name.'.html';
<li>,
<h4>, <a href="$path">, $_->title, </a>, </h4>,
<span class="summary">, $_->summary_html, </span>,