File Coverage

blib/lib/Sys/Apm.pm

Criterion	Covered	Total	%
statement	6	38	15.7
branch	0	6	0.0
condition			n/a
subroutine	2	12	16.6
pod	8	10	80.0
total	16	66	24.2

package Sys::Apm;

use strict;
use warnings;

our $VERSION = 0.05;

sub new {
    my $cls = shift;
    my $self = {proc=>'/proc/apm'};
    unless (-f $self->{proc}) { return }
    bless $self => $cls;
    $self->fetch;
    $self;
}

sub fetch {
    my $self = shift;
    open(APM,$self->{proc})or return;
    my $a = ;
    chomp($a);
    close APM;
    unless ($a) { return }
    $self->parse($a);
}

sub parse {
    my $self = shift;
    my $str = shift;
    $self->{data}=[split / /, $str];
}

sub driver_version {
    my $self = shift;
    $self->{data}[0];
}

sub bios_version {
    my $self = shift;
    $self->{data}[1];
}

sub ac_status {
    my $self = shift;
    hex($self->{data}[3]);
}

sub battery_status {
    my $self = shift;
    hex($self->{data}[4]);
}

sub charge {
    my $self = shift;
    $self->{data}[6];
}

sub remaining {
    my $self = shift;
    $self->{data}[7];
}

sub units {
    my $self = shift;
    $self->{data}[8];
}

1;
__END__