#!perl use 5.012; # strict, // use warnings; { my $i = 1; my $j = 2; sub get { $i + $j; } } get(); #### perl -MDevel::Cover x.pl cover #### ----- ------ ------ ------ ------ ------ ------ ------ File stmt bran cond sub pod time total ----- ------ ------ ------ ------ ------ ------ ------ x.pl 90.9 n/a n/a 100.0 n/a 100.0 92.8 Total 90.9 n/a n/a 100.0 n/a 100.0 92.8 ----- ------ ------ ------ ------ ------ ------ ------