File Coverage

blib/lib/OpenAPI/Generator/From/Pod.pm

Criterion	Covered	Total	%
statement	79	81	97.5
branch	26	30	86.6
condition	3	6	50.0
subroutine	18	18	100.0
pod	2	2	100.0
total	128	137	93.4

package OpenAPI::Generator::From::Pod;

use 5.012;
use strict;
use warnings;

use Carp;
use File::Find;
use OpenAPI::Generator::Util qw(merge_definitions);
use Pod::Simple::SimpleTree;
use YAML qw(Load);

use constant OPENAPI_HEAD_NAME => 'OPENAPI';

sub new {

  bless {}, shift
}

sub generate {

  my($self, $conf) = @_;

  my $src = $conf->{src};
  $self->_check_src($src);
  my @files = $self->_src_as_files($src);

  my @defs;
  push @defs, $self->_parse_file($_) for @files;

  return unless @defs;

  merge_definitions(@defs);
}

sub _parse_file {
  my($self, $file) = @_;
  my $parser = Pod::Simple::SimpleTree->new;

  my $struct = $parser->parse_file($file)->root;
  my $openapi_node = $self->_extract_openapi_node($struct);

  unless ($openapi_node) {
    return;
  }

  my %common_definition = (
    paths => {},
    components => {
      schemas => {},
      parameters => {},
      securitySchemes => {},
    },
  );

  while (my($index, $node) = each @{$openapi_node}) {
    next unless ref $node eq uc'array';
    next unless $node->[0] eq 'item-text';

    my $item_name = $node->[2];

    my $definition_node = $openapi_node->[$index + 1];
    if (!$definition_node || $definition_node->[0] ne 'Verbatim') {
      croak("can not find definition for $node->[2]")
    }
    my $definition = Load $definition_node->[2];

    if ($item_name =~ /^\s*SCHEMA/) {
      my $schema_name = $self->_extract_component_name($item_name);
      $common_definition{components}{schemas}{$schema_name} = $definition;
    }
    elsif ($item_name =~ /^\s*PARAM/) {
      my $param_name = $self->_extract_component_name($item_name);
      $common_definition{components}{parameters}{$param_name} = $definition;
    }
    elsif ($item_name =~ /^\s*SECURITY/) {
      my $security_schema_name = $self->_extract_component_name($item_name);
      $common_definition{components}{securitySchemes}{$security_schema_name} = $definition;
    }
    else {
      my($method, $route) = $self->_extract_method_and_route($item_name);
      $common_definition{paths}{$route}{$method} = $definition;
    }
  }

  return \%common_definition;
}

sub _extract_component_name {

  my($type, $name) = split /\s/, $_[1];
  return $name;
}

sub _extract_method_and_route {

  my ($method, $route) = split /\s/, $_[1];
  return lc($method), $route
}

sub _extract_openapi_node {

  my($self, $struct) = @_;
  while (my($index, $node) = each @{$struct}) {
    next unless ref $node eq uc'array';
    if ($node->[2] eq OPENAPI_HEAD_NAME) {
      my $openapi_node = $struct->[$index + 1];
      if (!$openapi_node) {
        croak 'can not find openapi node: no nodes found below openapi annotation'
      }

      return $openapi_node;
    }
  }
}

sub _check_src {

  croak "$_[1] is not file or directory" unless(-f $_[1] or -d $_[1]);
  croak "$_[1] is not readable" unless(-r $_[1]);
}

sub _src_as_files {

  return $_[1] if -f $_[1];

  my @files;
  find sub { push @files, $File::Find::name if /\.(pm|pl|t|pod)$/ }, $_[1];
  @files
}

1

__END__