bin/cmop-conflicts

   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 }