Skip to content

Instantly share code, notes, and snippets.

@ruz

ruz/Templates.pm

Created August 21, 2011 00:03
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ruz/1159863 to your computer and use it in GitHub Desktop.
Save ruz/1159863 to your computer and use it in GitHub Desktop.
Download ZIP
Devel::Cover skipping nested anon subs
Raw
Templates.pm
package Templates;
my $code = sub { 'foo' };
*simple = sub { return $code->(@_) };
1;
Raw
test.pl
use Templates;
print Templates->simple, "\n";
Raw
try.sh
rm -fr cover_db/
DEVEL_COVER_OPTIONS='+select,Templates' perl -I. -MDevel::Cover test.pl
cover
open cover_db/Templates-pm.html
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment