sub getHardwareInfo()

in client_script/profile_reader.pl [58:68]

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

sub getHardwareInfo {
    my $hwInfo = `system_profiler SPHardwareDataType`;

    my $data = {};

    foreach(split(/\n/,$hwInfo)){
        $data->{"model"} = $1 if(/^\s+Model Name: (.*)\s*$/);
        $data->{"hw_uuid"} = $1 if(/^\s+Hardware UUID: (.*)\s*$/);
    }
    return $data;
}