こわくないConsul
事前に、ワークショップ用のサンプルプロジェクトをチェックアウトし、VMの作成だけしておきましょう。 --no-provision でお願いします!
| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| use List::MoreUtils qw(any); | |
| sub git; | |
| chdir git('rev-parse --git-dir') . '/..'; | |
| my @submodules = map [split /\s+/]->[-1], grep /^160000 /, git 'ls-files --stage'; |