#!/usr/bin/perl -w
###########################################
# watch-quotes - Standalone test script
# Mike Schilli, 2010 (m@perlmeister.com)
###########################################
use strict;
use lib local::lib;
use AnyEvent;
use WatchQuotes;

my $watcher = WatchQuotes->new();
$watcher->init();
$watcher->watch( \&callback );

my $quit_program = AnyEvent->condvar;
$quit_program->recv;

###########################################
sub callback {
###########################################
    print "$_[0]\n";
}