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 | } |