Commit | Line | Data |
---|---|---|
67caa3ca | 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 | } |