Perl

Example: Http.HasRequestHeader method

Demonstrates the HasRequestHeader method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $http = Chilkat2::Http->new;

$http->SetRequestHeader('X-CSRF-Token', 'Fetch');

my $b = $http->HasRequestHeader('X-CSRF-Token');
if ($b) {
    print "X-CSRF-Token: Yes\n";
} else {
    print "X-CSRF-Token: No\n";
}

$b = $http->HasRequestHeader('X-Something');
if ($b) {
    print "X-Something: Yes\n";
} else {
    print "X-Something: No\n";
}

# The Accept and Accept-Encoding headers are default headers automatically added,
# unless the application chooses to remove by calling RemoveRequestHeader for each.
$b = $http->HasRequestHeader('Accept');
if ($b) {
    print "Accept: Yes\n";
} else {
    print "Accept: No\n";
}

# Output:

# X-CSRF-Token: Yes
# X-Something: No
# Accept: Yes