File Coverage

blib/lib/Test/JSON/RPC/Autodoc.pm

Criterion	Covered	Total	%
statement	42	42	100.0
branch	5	6	83.3
condition	7	8	87.5
subroutine	12	12	100.0
pod	3	5	60.0
total	69	73	94.5

package Test::JSON::RPC::Autodoc;
use 5.008001;
use strict;
use warnings;
use File::ShareDir;
use Path::Tiny qw/path/;
use Text::Xslate;
use Test::JSON::RPC::Autodoc::Request;

our $VERSION = "0.15";

sub new {
    my ($class, %opt) = @_;
    my $app = $opt{app} or die 'app parameter must not be null!';
    my $self = bless {
        app => $app,
        document_root => $opt{document_root} || 'docs',
        path => $opt{path} || '/',
        requests => [],
        index_file => $opt{index_file} || undef,
    }, $class;
    return $self;
}

sub new_request {
    my ($self, $label) = @_;
    my $req = Test::JSON::RPC::Autodoc::Request->new(
        app => $self->{app},
        path => $self->{path},
        label => $label || '',
    );
    push @{$self->{requests}}, $req;
    return $req;
}

sub write {
    my ($self, $filename) = @_;
    my $tx = $self->load_tx();
    my $text = $tx->render('template.tx', { requests => $self->{requests} });
    path($self->{document_root}, $filename)->spew_utf8($text);
    $self->append_to_index($filename) if $self->{index_file};
}

sub append_to_index {
    my ($self, $filename) = @_;
    my $tx = $self->load_tx();
    my $text = $tx->render('index_part.tx', {
        requests => $self->{requests},
        path => path($filename),
    });
    my $path = path($self->{document_root}, $self->{index_file});
    $path->append_utf8($text);
}

sub load_tx {
    my $dir = './share';
    $dir = File::ShareDir::dist_dir('Test-JSON-RPC-Autodoc') unless -d $dir;
    return Text::Xslate->new( path => $dir );
}

1;
__END__