bin/moo-outdated

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