Skip to content

Instantly share code, notes, and snippets.

@Skeeve
Created October 30, 2020 07:30
Show Gist options
  • Select an option

  • Save Skeeve/cf596b335f6cb16f2762d1f95e297ccb to your computer and use it in GitHub Desktop.

Select an option

Save Skeeve/cf596b335f6cb16f2762d1f95e297ccb to your computer and use it in GitHub Desktop.

Revisions

  1. Skeeve created this gist Oct 30, 2020.
    12 changes: 12 additions & 0 deletions gistfile1.txt
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,12 @@
    has usage => sub {
    my $pod = '';
    open my $printpod, '>', \$pod;
    pod2usage(
    -input => __FILE__,
    -verbose => 1,
    -exitval => 'NOEXIT',
    -output => $printpod,
    );
    close $printpod;
    return $pod;
    };