use dist-checkconflicts

[gitmo/Package-Stash.git] / bin / package-stash-conflicts

diff --git a/bin/package-stash-conflicts b/bin/package-stash-conflicts
new file mode 100644 (file)
index 0000000..3ebeb3a
--- /dev/null
+++ b/bin/package-stash-conflicts
@@ -0,0 +1,19 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+# PODNAME: package-stash-conflicts
+
+use Getopt::Long;
+use Package::Stash::Conflicts;
+
+my $verbose;
+GetOptions("verbose|v" => \$verbose);
+
+if ($verbose) {
+    Package::Stash::Conflicts->check_conflicts;
+}
+else {
+    my @conflicts = Package::Stash::Conflicts->calculate_conflicts;
+    print "$_\n" for map { $_->{package} } @conflicts;
+    exit @conflicts;
+}