view release on metacpan or  search on metacpan

lib/OpenAPI/Generator/From/Definitions.pm  view on Meta::CPAN

    if (!@files) {
      croak "no files found in $src";
    }
  }

  my @defs = @{ $conf->{definitions} };

  for my $file (@files) {
    croak "$file is not readable" unless -r $file;

    local $/ = '';
    open my $fh, '<', $file or croak "can't open file $file";
    my $content = <$fh>;
    close $fh;


    if ($file =~ /\.json$/) {
      push @defs, decode_json($content);
    }
    else {
      push @defs, Load($content);