bin/package-stash-conflicts

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 # PODNAME: package-stash-conflicts
   5
   6 use Getopt::Long;
   7 use Package::Stash::Conflicts;
   8
   9 my $verbose;
  10 GetOptions("verbose|v" => \$verbose);
  11
  12 if ($verbose) {
  13     Package::Stash::Conflicts->check_conflicts;
  14 }
  15 else {
  16     my @conflicts = Package::Stash::Conflicts->calculate_conflicts;
  17     print "$_\n" for map { $_->{package} } @conflicts;
  18     exit @conflicts;
  19 }