File Coverage

blib/lib/RPi/SysInfo.pm

Criterion	Covered	Total	%
statement	12	31	38.7
branch	0	8	0.0
condition	0	5	0.0
subroutine	4	10	40.0
pod	4	4	100.0
total	20	58	34.4

package RPi::SysInfo;

use strict;
use warnings;

use Carp qw(croak);

our $VERSION = '0.01';

require XSLoader;
XSLoader::load('RPi::SysInfo', $VERSION);

use Exporter qw(import);

our @EXPORT_OK = qw(
    core_temp
    cpu_percent
    mem_percent
);

our %EXPORT_TAGS;
$EXPORT_TAGS{all} = [@EXPORT_OK];

sub new {
    return bless {}, shift;
}
sub core_temp {
    my ($degree) = @_;

    $degree //= 'c';

    local $SIG{__WARN__} = sub {
        my $warning = shift;
        if ($warning !~ /Can't exec "vcgencmd"/){
            warn $warning;
        }
    };

    my $temp = `vcgencmd measure_temp`;

    if (! defined $temp){
        croak "issue executing the core temp command, can't continue...\n";
    }

    $temp =~ s/(temp=)//;
    $temp =~ s/'.*//;

    if ($degree eq 'f' || $degree eq 'F'){
        $temp = ($temp * 1.8) + 32;
    }

    return $temp;
}
sub cpu_percent {
    return _format(cpuPercent());
}
sub mem_percent {
    return _format(memPercent());
}
sub _format {
    croak "_format() requires a float/double sent in\n" if ! defined $_[0];
    return sprintf("%.2f", $_[0]);
}
1;
__END__