File Coverage

Test_Progs/argv_heading
Criterion Covered Total %
statement 27 64 42.1
branch 7 44 15.9
condition 3 13 23.0
subroutine 2 2 100.0
pod n/a
total 39 123 31.7


line stmt bran cond sub pod time code
1             #! /usr/bin/perl -w
2              
3 1     1   856 use Shell::POSIX::Select qw($Heading);
  1         2  
  1         5  
4              
5 1 50   1   504 BEGIN { @ARGV or @ARGV=qw(A B C) }
6              
7 1         3 $Heading='MENU CITY';
8             select $var (@ARGV) { print "$var\n"; }