Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 5369fb2cf4
Fetching contributors…

Cannot retrieve contributors at this time

executable file 27 lines (23 sloc) 0.643 kb
#!/usr/bin/env perl
# -*- cperl -*-
use v5.10;
use strict;
use warnings;
use File::Spec;
use File::Find;
use Module::CoreList;
use Module::ExtractUse;
use List::MoreUtils qw(uniq);
my @dir = map { File::Spec->rel2abs($_) } @ARGV;
push @dir, File::Spec->rel2abs(File::Spec->curdir) unless @dir;
my $meu = Module::ExtractUse->new;
my @used = ();
find(
sub {
return if $File::Find::dir =~ /\.(git|sv[nk])/ || ! -f $File::Find::name;
$meu->extract_use($File::Find::name);
push @used, $meu->array;
},
@dir
);
say for grep { !$Module::CoreList::version{"$]"}->{$_} } grep { !/^v?[\.0-9]+$/ } uniq sort @used;
Jump to Line
Something went wrong with that request. Please try again.