podを取り除いたソースを読みたい

perldoc -m Module をよく使うけど、たまにpodを除いたソースを読みたい時がある。
そんな時は Pod::Stripperが便利。
こういうスクリプトをperlcodeというファイル名でパスが通るところに置いておいて
perlcode Module で読めるようにしています。単純だけど便利だよ。

#!/usr/bin/perl
use strict;
use warnings;

use Pod::Stripper;
use IO::Pager;

my $stripper = Pod::Stripper->new;
my $file = `perldoc -l $ARGV[0]`;
{
    local $STDOUT = IO::Pager->new(*STDOUT);
    $stripper->parse_from_file($file);
}