Skip to content

Instantly share code, notes, and snippets.

@masak
Created March 23, 2009 13:14
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save masak/83545 to your computer and use it in GitHub Desktop.
Save masak/83545 to your computer and use it in GitHub Desktop.
$ perl6 -e 'my %seen; multi find-deps($file) { find-deps($file, 0) }; multi\
find-deps($file, $ind) { say " " x $ind, $file; return if %seen{$file}++;\
for lines($file) -> $line { if $line ~~ /^ \s* use \s+ (\w+[\:\: \w+]*) \;/ {\
my $dep-file = [~] "lib/", $0.split("::").join("/"), ".pm"; next unless\
$dep-file ~~ :f; find-deps($dep-file, $ind+4) } } }; find-deps("lib/November.pm")'
lib/November.pm
lib/Session.pm
lib/Config.pm
lib/Utils.pm
lib/CGI.pm
lib/URI.pm
lib/URI/Grammar.pm
lib/URI.pm
lib/Tags.pm
lib/Config.pm
lib/Dispatcher.pm
lib/Dispatcher/Rule.pm
lib/Utils.pm
lib/Config.pm
lib/November/Storage/File.pm
lib/November/Storage.pm
lib/Utils.pm
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment