API-CLI

 view release on metacpan or  search on metacpan

examples/githubcl-appspec.yaml  view on Meta::CPAN

          type: integer
        public_repos:
          type: integer
        type:
          type: string
        url:
          type: string
      type: object
    organizationAsTeamMember:
      properties:
        errors:
          items:
            properties:
              code:
                type: string
              field:
                type: string
              resource:
                type: string
            type: object
          type: array

examples/githubcl-openapi.yaml  view on Meta::CPAN

        type: integer
      public_repos:
        type: integer
      type:
        type: string
      url:
        type: string
    type: object
  organizationAsTeamMember:
    properties:
      errors:
        items:
          properties:
            code:
              type: string
            field:
              type: string
            resource:
              type: string
          type: object
        type: array

lib/API/CLI.pm  view on Meta::CPAN

            open my $fh, '<', $data_file or die "Could not open '$data_file': $!";
            my $data = do { local $/; <$fh> };
            close $fh;
            $REQ->content($data);
        }
    }

    my ($ok, $out, $content) = $REQ->request;
    if (defined $out) {
        unless ($ok) {
            $out = $run->error($out);
        }
        warn $out;
    }
    say $content;

}

1;

__END__



( run in 0.265 second using v1.01-cache-2.11-cpan-65fba6d93b7 )