sub check_xbithack_etag()

in t/modules/include.t [633:643]

• 9 lines of code
• 3 McCabe index (conditional complexity)

sub check_xbithack_etag {
    my ($resp) = shift;
    my ($body) = super_chomp($resp->content);
    my ($etag) = ($resp->header('ETag'))
                   ? "Has ETag" : "No ETag";

    my $data = shift;
    $$data = $etag if $data;

    "$etag ; $body";
}