use strict; use warnings; our $foo; use Pod::Constants -trim => 1, foo => \$foo; =head1 foo detcepxe =cut 1;