view release on metacpan or  search on metacpan

script/unicheck  view on Meta::CPAN

=head2 --newline

Adds a newline to the output.

=cut

my $check = App::Unicheck->new;

my $info = undef;
my $plugins_flag = '';
my $eol = '';

my $option_handler = sub {
    my ($option, @params) = @_;
    $info = shift @params if $option eq 'info';
    $eol  = "\n" if $option eq 'newline';
};

GetOptions(
    'info:s' => $option_handler,
    'newline' => $option_handler,
    'modules' => \$plugins_flag,
);

unless (keys %{$check->modules}) {
    say 'No modules loaded. Maybe you need to install some first?';

script/unicheck  view on Meta::CPAN

if (defined $info) {
    print $check->info($info);
    exit 0;
}

if ($plugins_flag) {
    print "$_\n" for keys %{$check->modules};
    exit 0;
}

print $check->run(@ARGV) . $eol;

=head1 AUTHOR

Matthias Krull, C<< <<m.krull at uninets.eu>> >>

=head1 BUGS

Please report any bugs or feature requests to C<bug-app-unicheck at rt.cpan.org>, or through
the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=App-Unicheck>.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.