#!perl
use 5.012; # strict, //
use warnings;

{
    my $i = 1;
    my $j = 2;
    sub get {
        $i + $j;
    }
}
get();

##</code><code>##

perl -MDevel::Cover x.pl 
cover

##</code><code>##

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