File Coverage

t/0_basic.t
Criterion Covered Total %
statement n/a
branch n/a
condition n/a
subroutine n/a
pod n/a
total n/a


line stmt bran cond sub pod time code
1             print "1..$_tests\n";
2              
3             require Socket::Class;
4             _check( 1 );
5              
6             BEGIN {
7             $_tests = 1;
8             $_pos = 1;
9             unshift @INC, 'blib/lib', 'blib/arch';
10             }
11              
12             1;
13              
14             sub _check {
15             my( $val ) = @_;
16             print "" . ($val ? "ok" : "not ok") . " $_pos\n";
17             $_pos ++;
18             }