view release on metacpan or  search on metacpan

eg/japan-earthquake-growler.pl  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;
use lib 'lib';
use utf8;

use AnyEvent;
use Cocoa::EventLoop;
use Cocoa::Growl ':all';

use AnySan;
use AnySan::Provider::Twitter;
use Config::Pit;
use Encode;

my $config = pit_get("japan-earthquake-growler", require => {
    consumer_key    => 'your twitter consumer_key',
    consumer_secret => 'your twitter consumer_secret',
    token           => 'your twitter access_token',
    token_secret    => 'your twitter access_token_secret',
});

growl_register(
    app           => 'Japan EarthQuake Growler',
    notifications => [qw( JapanEarthQuakeGrowler )],
);

my $twitter = twitter
    %{ $config },
    method   => 'filter',
    follow   => '16052553', # 0000,11111,2222,3333,444
    ;

AnySan->register_listener(
    pikubo => {
        event => 'timeline',
        cb => sub {
            my $receive = shift;
            return unless $receive->message;
            my $msg = $receive->message;
            $msg = encode( utf8 => $msg ) if Encode::is_utf8($msg);
            printf "%s: %s\n", $receive->from_nickname, $msg;

            growl_notify(
                name        => 'JapanEarthQuakeGrowler',
                title       => $receive->from_nickname,
                description => $receive->message,
#                icon        => $img_url,
#                on_click    => sub { system 'open', $url }
            );
        },
    },
);

AnySan->run;