Yet Another CPAN Grep

Pugs-Compiler-Rule ( F/FG/FGLOCK/Pugs-Compiler-Rule-0.37.tar.gz, FGLOCK, 2008; MetaCPAN )

Pugs-Compiler-Rule/util/gen-tracer-view.pl ( view source; MetaCPAN )

#!/usr/bin/env perl

use strict;
use warnings;

use JSON::Syck;
use File::Slurp;
use Getopt::Long;
use File::Spec ();
use File::Path 'mkpath';
use File::Copy 'copy';

#use Smart::Comments;
use List::M

[0] . "-" . $regex_pos[1];
#warn $id;

my $js_ops = JSON::Syck::Dump(\@ops);
my $js_regex_pos = JSON::Syck::Dump(\@regex_pos);
my $js_str_pos = JSON::Syck::Dump(\@str_pos);

#warn scalar(@ops);
#warn