view release on metacpan or  search on metacpan

lib/CGI/Kwiki/Database.pm  view on Meta::CPAN

    my ($self, $page_id) = @_;
    $page_id = $self->escape($page_id);
    for (qw(database metabase/metadata 
            metabase/public metabase/protected metabase/private
           )
        ) {
        unlink "$_/$page_id";
    }
}

sub update_time {
    my ($self) = @_;
    my @stat = stat $self->file_path($self->cgi->path_id);
    $stat[9];
}

sub pages {
    my ($self) = @_;
    grep {
        $self->exists($_);
    } map {