Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
16 lines (13 sloc) 292 Bytes
#! /usr/bin/perl
use Modern::Perl;
use YAML;
use System::Command;
use IO::All;
sub pygment {
io('/tmp/pygmentize-me') < shift;
# open my $fh,'|-','pygmentize /tmp/pygmentize-me -f html';
open my $fh,'|-','cat /tmp/pygmentize-me';
local $/;
<$fh>;
}
say pygment "<foo>"