Select Code to Download

use strict;
use warnings;
...
ok( is_code( \&real_sub ), 'real sub ref is code' );
ok( is_code( $sub_ref   ), 'lexical sub ref is code' );
ok( is_code( $undef     ), 'undef is code' );