Reading database from cover_db ------------------------------------------------- ------ ------ ------ ------ File stmt branch cond total ------------------------------------------------- ------ ------ ------ ------ tests/t1 100.00 n/a n/a 100.00 Total 100.00 n/a n/a 100.00 ------------------------------------------------- ------ ------ ------ ------ tests/t1 line err stmt branch cond code 1 #!/usr/local/bin/perl 2 3 # Copyright 2002, Paul Johnson (pjcj@cpan.org) 4 5 # This software is free. It is licensed under the same terms as Perl itself. 6 7 # The latest version of this software should be available from my homepage: 8 # http://www.pjcj.net 9 10 use strict; 11 use warnings; 12 13 1 my @x; 14 15 sub xx 16 { 17 1 $x[shift]++; 18 } 19 20 1 xx(4);