view release on metacpan or  search on metacpan

lib/OpenAPI/Render/HTMLForms.pm  view on Meta::CPAN

use strict;
use warnings;

# ABSTRACT: Generate HTML forms for OpenAPI specifications.
our $VERSION = '0.3.0'; # VERSION

use OpenAPI::Render;
use parent OpenAPI::Render::;

use CGI qw( -nosticky -utf8 h1 h2 h3 p input filefield popup_menu legend submit start_div end_div start_fieldset end_fieldset start_form end_form start_html end_html );
use List::Util qw( any );

sub header
{
    my( $self ) = @_;

    my %start_html_options = (
        -title => $self->api->{info}{title} . ' v' .
                  $self->api->{info}{version},
    );

lib/OpenAPI/Render/HTMLForms.pm  view on Meta::CPAN

    push @parameter,
         h3( $parameter->{name} ),
         $parameter->{description} ? p( $parameter->{description} ) : ();
    if( $parameter->{schema} && $parameter->{schema}{enum} ) {
        my @values = @{$parameter->{schema}{enum}};
        if( !$parameter->{required} ) {
            unshift @values, '';
        }
        push @parameter,
             popup_menu( -name => $parameter->{name},
                         -values => \@values,
                         ($parameter->{in} eq 'path'
                            ? ( '-data-in-path' => 1 ) : ()) );
    } elsif( ($parameter->{schema}{type} &&
              $parameter->{schema}{type} eq 'object') ||
             ($parameter->{schema}{format} &&
              $parameter->{schema}{format} eq 'binary') ) {
        push @parameter,
             filefield( -name => $parameter->{name} );
    } else {