sub doPing()

in client_script/profile_reader.pl [233:248]

• 14 lines of code
• 1 McCabe index (conditional complexity)

sub doPing {
    my ($serverIp) = @_;

    my $pingContent = `ping -c 1 $serverIp`;
    my @pingContentArray = split /\n/, $pingContent;
    my $pingResult;
    no warnings 'uninitialized';
    no warnings 'substr';
    try {
        $pingResult = substr $pingContentArray[4], 23, 1;
    };
    use warnings 'uninitialized';
    use warnings 'substr';

    return $pingResult;
}