sub print_result()

in t/apache/byterange7.t [108:119]

• 12 lines of code
• 4 McCabe index (conditional complexity)

sub print_result
{
    my $result = shift;
    my $code = $result->code;
    my $cr = $result->header("Content-Range");
    my $ct = $result->header("Content-Type");
    my $msg = "Got $code";
    $msg .= " multipart/byteranges"
        if (defined $ct && $ct =~ m{^multipart/byteranges});
    $msg .= " Range: '$cr'" if defined $cr;
    print "$msg\n";
}