File Coverage

blib/lib/Linux/MemInfo.pm

Criterion	Covered	Total	%
statement	12	33	36.3
branch	0	8	0.0
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	16	47	34.0

package Linux::MemInfo;

use 5.006;
use strict;
use warnings;

require Exporter;
use AutoLoader qw(AUTOLOAD);

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Linux::MemInfo ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw( get_mem_info
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw( get_mem_info
);

our $VERSION = '0.03';


# Preloaded methods go here.

# Autoload methods go after =cut, and are processed by the autosplit program.

sub get_mem_info() {
    my %mem;
    open(INFIL,"/proc/meminfo") || die("Unable To Open /proc/meminfo\n");
    NXTMI: foreach() {
        if( m/^Mem:\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/ ) {
            $mem{mem_total}   = $1;
            $mem{mem_used}    = $2;
            $mem{mem_free}    = $3;
            $mem{mem_shared}  = $4;
            $mem{mem_buffers} = $5;
            $mem{mem_cached}  = $6;
            next NXTMI;
        }
        elsif( m/^Swap:\s+(\S+)\s+(\S+)\s+(\S+)/ ) {
            $mem{swap_total} = $1;
            $mem{swap_used} = $2;
            $mem{swap_free} = $3;
            next NXTMI;
        }
        elsif( m/^(\S+):\s+(\S+) (\S+)/ ) {
            my $unit = $1 . "Unit";
            $mem{$1} = $2;
            $mem{$unit} = $3;
            next NXTMI;
        }
    }
    close(INFIL);
    return %mem
}


1;
__END__