File Coverage

blib/lib/Sys/LoadAvg.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Sys::LoadAvg;
2              
3 1     1   7053 use strict;
  1         2  
  1         61  
4              
5             require Exporter;
6             require DynaLoader;
7              
8 1     1   6 use vars qw( @ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION);
  1         2  
  1         113  
9              
10             @ISA = qw(Exporter DynaLoader);
11              
12 1     1   7 use constant LOADAVG_1MIN => 0;
  1         3  
  1         91  
13 1     1   5 use constant LOADAVG_5MIN => 1;
  1         3  
  1         59  
14 1     1   6 use constant LOADAVG_15MIN => 2;
  1         2  
  1         140  
15              
16             # Items to export into callers namespace by default. Note: do not export
17             # names by default without a very good reason. Use EXPORT_OK instead.
18             # Do not simply export all your public functions/methods/constants.
19              
20             # This allows declaration use Sys::LoadAvg ':all';
21             # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
22             # will save memory.
23             %EXPORT_TAGS = ( 'all' => [ qw(
24             loadavg LOADAVG_1MIN LOADAVG_5MIN LOADAVG_15MIN
25             ) ] );
26              
27             @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
28              
29             @EXPORT = qw(
30             LOADAVG_1MIN LOADAVG_5MIN LOADAVG_15MIN
31             );
32             $VERSION = '0.03';
33              
34             bootstrap Sys::LoadAvg $VERSION;
35              
36             # Preloaded methods go here.
37              
38             1;
39             __END__