The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#
# (c) Jan Gehring <jan.gehring@gmail.com>
# 
# vim: set ts=3 sw=3 tw=0:
# vim: set expandtab:

package Rex::Hardware::Kernel;

use strict;
use warnings;

use Rex::Commands::Run;
use Rex::Helper::Run;

require Rex::Hardware;

sub get {

   my $cache = Rex::get_cache();
   my $cache_key_name = $cache->gen_key_name("hardware.kernel");

   if($cache->valid($cache_key_name)) {
      return $cache->get($cache_key_name);
   }

   my $data = {
      architecture => i_run ("LC_ALL=C uname -m"),
      kernel       => i_run ("LC_ALL=C uname -s"),
      kernelrelease => i_run ("LC_ALL=C uname -r"),
      kernelversion => i_run ("LC_ALL=C uname -v"),
   };

   $cache->set($cache_key_name, $data);

   return $data;

}

1;