add remove header http class
This commit is contained in:
parent
7cdbfca446
commit
1deff66141
|
@ -82,6 +82,12 @@ sub add_header {
|
||||||
$self->{add_headers}->{$options{key}} = $options{value};
|
$self->{add_headers}->{$options{key}} = $options{value};
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub remove_header {
|
||||||
|
my ($self, %options) = @_;
|
||||||
|
|
||||||
|
delete $self->{add_headers}->{$options{key}} if (defined($self->{add_headers}->{$options{key}}));
|
||||||
|
}
|
||||||
|
|
||||||
sub check_options {
|
sub check_options {
|
||||||
my ($self, %options) = @_;
|
my ($self, %options) = @_;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue