sub setInformation {
  my $self = shift;
  my $device = shift || $self->{device};
  $self->{info} = _setInformation($device);
}

sub _setInformation {
  my $device = shift;
  my $model = `hdparm -i $device`;
  return $model =~ /model=([^,]+)/i;
}