CUFP
tobyink
<p>If you're working on a POD document and you want to upload it as a GitHub gist, just add the following to the top:</p>
<code>
#!/usr/bin/env perl
use App::gist;
@ARGV = $0;
App::gist->run;
</code>
<p>... and mark the POD file as executable. Then run it. (Many programmers' text editors have a built-in command or hotkey to execute the current file.) Yay, it's uploaded to GitHub as a gist. This should give you a numeric gist identifier. Change the third line to:</p>
<code>
@ARGV = ('-u', 412345, $0); # or whatever identifier
</code>
<p>Now executing the file will update the existing gist in place.</p>
<p>Yet another reason to use POD over another markup language. :-)</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-757127">
<small><small>
<tt>perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
</tt></small></small>
</div></div>