File Coverage

blib/lib/OpenAPI/Generator/Util.pm

Criterion	Covered	Total	%
statement	39	43	90.7
branch	7	12	58.3
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	53	62	85.4

package OpenAPI::Generator::Util;

use 5.006;
use strict;
use warnings;

use Carp;
use Exporter qw(import);

our @EXPORT_OK = qw(
  merge_definitions
);

sub merge_definitions {

  my(@definitions) = @_;

  croak 'no definitions to merge' unless @definitions;

  if (scalar @definitions == 1) {
    return $definitions[0];
  }

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

  for my $def (@definitions) {

    # paths
    while (my($path, $path_schema) = each %{$def->{paths}}) {
      while (my($method, $method_schema) = each %{$path_schema}) {
        if (exists $common_def{paths}{$path}{$method}) {
          croak "$method $path duplicates";
        }
        $common_def{paths}{$path}{$method} = $method_schema;
      }
    }

    # comp param
    while (my($param, $param_schema) = each %{$def->{components}{parameters}}) {
      if (exists $common_def{components}{parameters}{$param}) {
        croak "param $param duplicates"
      }
      $common_def{components}{parameters}{$param} = $param_schema;
    }

    # comp schemas
    while (my($comp, $comp_schema) = each %{$def->{components}{schemas}}) {
      if (exists $common_def{components}{schemas}{$comp}) {
        croak "schema $comp duplicates"
      }
      $common_def{components}{schemas}{$comp} = $comp_schema;
    }

    # comp security
    while (my($security, $security_schema) = each %{$def->{components}{securitySchemes}}) {
      if (exists $common_def{components}{securitySchemes}{$security}) {
        croak "security $security duplicates"
      }
      $common_def{components}{securitySchemes}{$security} = $security_schema;
    }
  }

  return \%common_def;
}

1

__END__