File Coverage

blib/lib/Shodo/Hanshi.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition	1	3	33.3
subroutine	7	7	100.0
pod	0	4	0.0
total	28	34	82.3

package Shodo::Hanshi;
use strict;
use warnings;
use Text::MicroTemplate qw/render_mt encoded_string/;

sub new {
    my ($class, %args) = @_;
    my $self = bless { template => $args{template} }, $class;
    $self;
}

sub render {
    my ($self, $stash) = @_;
    my $tmpl = $self->{template} || $self->default_template;
    my $renderer = render_mt($self->header . $tmpl, $stash);
    return $renderer->as_string();
}

sub header {
    my $tmpl = <<'END';
? my ($stash) = @_;
? no strict qw/refs vars/;
? no warnings;
? for my $key (keys %$stash) {
? if (ref $stash->{$key}) {
? ${$key} = $stash->{$key};
? }else{
? ${$key} = encoded_string($stash->{$key});
? }
? }
? use warnings;
? use strict qw/refs subs/;
END
    return $tmpl;
}

sub default_template {
    my $tmpl = <<'END';
##

? if ($description) {

? }

### Request

```json



```
? if ($rule) {

### Parameters

? for my $name (keys %$rule) {
* `` - {$name}{documentation} || '' ?>
? for my $key (keys %{$rule->{$name}}) {
? next if $key eq 'documentation';
? if ($rule->{$name}{$key}) {
  * : **{$name}{$key} || '' ?>**
? }
? }
? }
? }

### Response

```json
Status:


```

---

END
    return $tmpl;
}

1;