File Coverage

blib/lib/RPi/SysInfo.pm

Criterion	Covered	Total	%
statement	12	54	22.2
branch	0	14	0.0
condition	0	11	0.0
subroutine	4	15	26.6
pod	9	9	100.0
total	25	103	24.2

package RPi::SysInfo;

use strict;
use warnings;

use Carp qw(croak);

our $VERSION = '1.00';

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

use Exporter qw(import);

our @EXPORT_OK = qw(
    core_temp
    cpu_percent
    mem_percent
    gpio_info
    raspi_config
    network_info
    file_system
    pi_details
);

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

sub new {
    return bless {}, shift;
}
sub core_temp {
    shift if $_[0] && $_[0] =~ /RPi::/;

    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;
    }

    chomp $temp;
    return $temp;
}
sub cpu_percent {
    return _format(cpuPercent());
}
sub gpio_info {
    shift if $_[0] && $_[0] =~ /RPi::/;

    my ($pins) = @_;

    $pins = ! defined $pins
        ? ''
        : join ",", @$pins;

    my $info = `raspi-gpio get $pins`;
    chomp $info;
    return $info;
}
sub mem_percent {
    return _format(memPercent());
}
sub network_info {
    my $netinfo = `ifconfig`;
    chomp $netinfo;
    return $netinfo;
}
sub raspi_config {
    my $config = `vcgencmd get_config int`;
    $config .= `vcgencmd get_config str`;
    my $cmd = 'cat /boot/config.txt | egrep -v "^\s*(#|^$)"';
    $config .= `$cmd`;

    chomp $config;
    return $config;
}
sub file_system {
    my $fs_info = `df` . "\n";
    $fs_info .= `cat /proc/swaps`;
    return $fs_info;
}
sub pi_details {

    my $details;

    $details = "\n"
             . `cat /sys/firmware/devicetree/base/model`
             . "\n\n"
             . `cat /etc/os-release | head -4`
             . "\n"
             . `uname -a`
             . "\n"
             . `cat /proc/cpuinfo | tail -3`
             . "Throttled flag  : " . `vcgencmd get_throttled`
             . "Camera          : " . `vcgencmd get_camera`;

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