File Coverage

lib/Kwiki/Pages/Perldoc.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Kwiki::Pages::Perldoc;
use Kwiki::Pages -Base;
use Kwiki::Installer -base;
our $VERSION = '0.12';

const page_class => 'Kwiki::Page::Perldoc';

sub init {
    super;
    $self->hub->config->add_file('pages.yaml');
}

sub all {
    map {
        $self->new_page($_)
    } grep {
        s/\.pod$//;
    }
    map {
        $_->filename;
    } io($self->current->database_directory)->all_files;
}

sub all_ids_newest_first {
    my $path = $self->current->database_directory;
    grep {
        chomp;
        s/\.pod$//;
    } `ls -1t $path`;
}


package Kwiki::Page::Perldoc;
use base 'Kwiki::Page';
use Kwiki ':char_classes';

sub file_path {
    join '/', $self->database_directory, $self->id . '.pod';
}

package Kwiki::Pages::Perldoc;
__DATA__