blob: 3ebeb3a023c5ee5b29cd0d27fb28cbfa921ddb9f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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;
}
|
