view release on metacpan or  search on metacpan

lib/Drogo/Guts.pm  view on Meta::CPAN

=cut

sub header_set 
{
    my ($self, $key, $value) = @_;

    $request_data{headers}{$key} = $value;
}

=head3 $self->header('content-type')

Set content type.

=cut

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

    __PACKAGE__->header_set('Content-Type', $value);

lib/Drogo/Response.pm  view on Meta::CPAN

sub print { Drogo::Guts::print(@_) }

=head3 $self->header_set('header_type', 'value')

Set output header.

=cut

sub header_set { Drogo::Guts::header_set(@_) }

=head3 $self->header('content-type')

Set content type.

=cut

sub header { Drogo::Guts::header(@_) }


=head3 $self->headers

lib/Drogo/Server/PSGI.pm  view on Meta::CPAN

            # map dashes too
            $header =~ s/_/-/g;
            $self->{headers_in}{$header} = $self->{env}{$env_key};
        }
    }

    $self->{respond} = $params{respond};

    # content type needs manually set
    $self->{headers_in}{'content-type'} =
        $self->{env}{CONTENT_TYPE};

    bless($self);

    return $self;
}

=head3 initialize

Initializes Drogo instance.