[gitmo/Moo.git] / bin / moo-outdated

#!/usr/bin/perl

use strict;
use warnings;
# PODNAME: moo-outdated

use Getopt::Long;
use Moo::Conflicts;

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

if ($verbose) {
    Moo::Conflicts->check_conflicts;
}
else {
    my @conflicts = Moo::Conflicts->calculate_conflicts;
    print "$_\n" for map { $_->{package} } @conflicts;
    exit @conflicts;
}
Commit	Line	Data
4b46a4be	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