sub checkMounts()

in client_script/profile_reader.pl [213:231]

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

sub checkMounts {
  my $mountsContent = `mount | grep acfs`;
  my $mountInt=1;
  my $data = {};
  foreach(split(/\n/, $mountsContent)){
    my @fields = split / /, $_;
	my @fieldsParts = split /\//, $fields[2];
    $data->{"$mountInt"}->{"mountPath"}="$fields[2]";
    $data->{"$mountInt"}->{"name"}="$fieldsParts[-1]";
    $mountInt = $mountInt + 1;
  }
  my $arrayOutput=[];
  foreach(keys %$data){
    my $updatedHash = $data->{$_};
    $updatedHash->{"number"} = $_;
    push @$arrayOutput, $updatedHash;
  }
  return $arrayOutput;
}