#!/usr/bin/perl
use strict;
use warnings;
my %params;
my $arg = shift;
if ( $arg && $arg eq '-debug' ) {
$params{debug} = 1;
}
use App::MetaCPAN::Gtk2::Notify;
App::MetaCPAN::Gtk2::Notify->run(%params);
=head1 NAME
metacpan_notify.pl
=head1 DESCRIPTION
Script displays notifications about modules recently uploaded on CPAN
=head1 ACKNOWLEGEMENTS
I borrowed idea from metacpan-growler.pl script by Hideaki Ohno.
See https://github.com/hideo55/metacpan-growler.
=head1 AUTHOR
Pavel Shaydo, C<< <zwon at cpan.org> >>
=head1 LICENSE AND COPYRIGHT
Copyright 2011 Pavel Shaydo.
This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.
See http://dev.perl.org/licenses/ for more information.
=cut