[gitmo/Class-MOP.git] / bin / cmop-conflicts

#!/usr/bin/env perl
use strict;
use warnings;

use Getopt::Long;
use Class::MOP::Conflicts;

my $verbose;
GetOptions("verbose|v" => \$verbose);

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