File Coverage

blib/lib/Unix/Uptime.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	3	4	75.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	21	23	91.3

package Unix::Uptime;

use warnings;
use strict;

our $VERSION='0.36';
$VERSION = eval $VERSION;

my %modules = (
    freebsd   => 'FreeBSD',
    dragonfly => 'FreeBSD',
    linux     => 'Linux',
    openbsd   => 'BSD',
    darwin    => 'BSD',
    netbsd    => 'BSD',
);

my $module = $modules{$^O}
    or die "Operating system type $^O is currently unsupported";

require "Unix/Uptime/$module.pm";
our @ISA = ("Unix::Uptime::$module");

my $hires;

sub want_hires {
    my $class = shift;

    return $hires;
}

sub import {
    my $class = shift;
    if (grep {$_ eq ':hires'} @_) {
        $hires = 1;
        $module = "Unix::Uptime::$module";
        $module->can('load_hires')
            and $module->load_hires();
    }
}

1;

__END__