File Coverage

Test_Progs/localvar

Criterion	Covered	Total	%
statement	26	63	41.2
branch	6	42	14.2
condition	3	13	23.0
subroutine	1	1	100.0
pod			n/a
total	36	119	30.2

line	stmt	bran	cond	sub	pod	time	code
1							#! /usr/bin/perl -w
2
3	1			1		835	use Shell::POSIX::Select ;
	1					2
	1					6
4
5							select local $var (1) { print "/$var/\n"; }