13 lines
105 B
Perl
13 lines
105 B
Perl
|
use strict;
|
||
|
|
use Test;
|
||
|
|
|
||
|
|
use Sigar ();
|
||
|
|
|
||
|
|
BEGIN {
|
||
|
|
plan tests => 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
my $sigar = new Sigar;
|
||
|
|
|
||
|
|
ok $sigar;
|