sub getComputerName()

in client_script/profile_reader.pl [70:76]

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

sub getComputerName {
  my $systemInfo = `system_profiler SPSoftwareDataType`;

  foreach(split(/\n/,$systemInfo)){
    return $1 if(/^\s+Computer Name: (.*)$/);
  }
}