diff --git a/scripts/check b/scripts/check index 0f8edc9..9369fca 100755 --- a/scripts/check +++ b/scripts/check @@ -5,11 +5,7 @@ use warnings; use Perl::Critic; my $level; -if (!defined $ARGV[0]) -{ - print "usage: $0 [level]\n"; - exit 0; -} +print "Usage: $0 [level]\n" and exit 0 if !defined $ARGV[0]; if (!-e $ARGV[0]) { @@ -29,11 +25,7 @@ else { my $critic = Perl::Critic->new(-severity => $level); my @violations = $critic->critique($ARGV[0]); -if (!defined $violations[0]) -{ - print "$ARGV[0] passed (no violations)\n"; - exit 0; -} +print "$ARGV[0] passed (no violations)\n" and exit 0 if !defined $violations[0]; print "Violations:\n"; my $count = 0;