view release on metacpan or  search on metacpan

t/01_construct.t  view on Meta::CPAN

        my $content = shift;
        #say "on_change execute";
        #say qq(content is "$content");
    },
    on_unchange => sub {
        my $content = shift;
        #say "on_unchange execute";
        #say qq(content is "$content");
    },
    on_error => sub {
        #say "on_error execute. throw process.";
        $cv->send;
    },
], "interval simple digit version");

my $paste_tick2 = new_ok( 'AnyEvent::Mac::Pasteboard', [
    multibyte => 1,
    interval  => [1,1,2,2,3,4,5],
    on_change => sub {
        my $content = shift;
        #say "on_change execute";
        #say qq(content is "$content");
    },
    on_unchange => sub {
        my $content = shift;
        #say "on_unchange execute";
        #say qq(content is "$content");
    },
    on_error => sub {
        #say "on_error execute. throw process.";
        $cv->send;
    },
], "interval arrayref that contains some digits version");

my $timeout = AE::timer $TIMEOUT_SEC, 0, sub { $cv->send(); };

$cv->recv;