$input

Parameters

$members

Required

$required

INPUT }

            

              
              
if ($output) {
  my $members      = $EMPTY;
  my $output_shape = $shapes->{$output};
  my %shape_members = %{ $output_shape->{members} // {} };
  foreach my $m ( sort keys %shape_members ) {
    $members .= sprintf "\n=item %s\n", $m;
    $members .= html2pod $shape_members{$m}->{documentation};
  }
  $output = <<"OUTPUT";
            
          

$output

Parameters

$members

OUTPUT }

            

              
              
my @error_items;
if ( @{$errors} ) {
  foreach my $e ( @{$errors} ) {
    my $shape = $shapes->{$e};
    push @error_items, '=over 5';
    push @error_items, sprintf "=item %s\n%s", $e, html2pod $shape->{documentation};
    if ( $shape->{error} ) {
      push @error_items, '=over 5';
      foreach my $k ( sort keys %{ $shape->{error} } ) {
        push @error_items, sprintf "=item %s\n\n%s", $k, $shape->{error}->{$k};
      }
      push @error_items, "=back\n";
    }
    push @error_items, "=back\n";
  }
  local $LIST_SEPARATOR = "\n\n";
  my $error_str = "@error_items";
  $errors = <<"ERRORS";
            
          

$error_str

ERRORS } else { $errors = $EMPTY; }

            

              
              
my $none = "=over 5\n\n=item NONE\n\n=back\n\n";
$output = $output || $none;
$errors = $errors || $none;
$input  = $input  || $none;
my $method_pod = <<'END_OF_POD';
            
          

@method@

@documentation@

INPUT

@input@

OUTPUT

@output@

ERRORS

@errors@

END_OF_POD

            

              
              
my $http = $methods{$method}->{http};
my $http_method = $EMPTY;
my $request_uri = $EMPTY;
if ($http) {
  $http_method = $http->{method}     // $EMPTY;
  $request_uri = $http->{requestUri} // $EMPTY;
  my ( $request_uri_tpl, $args ) = parse_request_uri($request_uri);
  $operations->{$method}->{http}->{parsed_request_uri}
    = { request_uri_tpl => $request_uri_tpl, parameters => $args };
  $method_pod .= <<'END_OF_POD';
            
          

METHOD

@http_method@

REQUEST URI

@request_uri@ END_OF_POD }

            

              
              
$method_pod .= <<'END_OF_POD';
            
          

END_OF_POD

            

              
              
my @see_also;
push @see_also, $methods{$method}->{input}  || ();
push @see_also, $methods{$method}->{output} || ();
push @see_also, map { $_->{shape} } @{ $operations->{$method}->{errors} };
$parameters->{ to_template_var('see_also') } = join "\n",
  map { sprintf 'L<%s::%s>', $parameters->{ to_template_var('package_name') }, $_ } @see_also;
$parameters->{ to_template_var('method') }      = $method;
$parameters->{ to_template_var('errors') }      = $errors;
$parameters->{ to_template_var('input') }       = $input;
$parameters->{ to_template_var('output') }      = $output;
$parameters->{ to_template_var('http_method') } = $http_method;
$parameters->{ to_template_var('request_uri') } = $request_uri;
$parameters->{ to_template_var('documentation') } = $documentation;
my $package_name = $parameters->{ to_template_var('package_name') };
$package_name =~ s/::/\//gxsm;
push @pod, render_template $method_pod, $parameters;
my $pod_stub = <<'END_OF_POD';
=pod
            
          

NAME

@method@

SYNOPSIS

            

              
              
my $service = @package_name@->new;
my $rsp = $service->@method@($parameters);
            
          

DESCRIPTION

@documentation@

PARAMETERS

INPUT

@input@

OUTPUT

@output@

ERRORS

@errors@

NOTES

• Method: @http_method@

• Request URI: @request_uri@

SEE ALSO

@see_also@

AUTHOR

Autogenerate by @program_name@ on @timestamp@

LICENSE AND COPYRIGHT

This module is free software it may be used, redistributed and/or modified under the same terms as Perl itself.

NAME

@service@

DESCRIPTION

@documentation@

AVAILABLE COMMANDS

@available_commands@

NAME

@package_name@

DESCRIPTION

@description@

VERSION

Version @program_version@

METHODS AND SUBROUTINES

@methods@

NOTES

Autogenerated by @program_name@ at @timestamp@

LICENSE AND COPYRIGHT

This module is free software it may be used, redistributed and/or modified under the same terms as Perl itself.

cpanm Amazon::API

perl -MCPAN -e shell
install Amazon::API