Skip to content

Instantly share code, notes, and snippets.

@nigelhorne
nigelhorne / find_duplicate_code.pl
Created Nov 8, 2017 — forked from Ovid/find_duplicate_code.pl
Find Duplicate Code in Perl (a hack)
View find_duplicate_code.pl
#!/usr/bin/env perl
use 5.12.0;
use autodie;
use Carp;
use utf8::all;
use File::Spec::Functions qw(catfile catdir);
use File::Find::Rule;
use Getopt::Long;
use Capture::Tiny qw(capture);