xtetsuji / p5-anyevent-mac-pasteboard Goto Github PK

MEMO:

I want to change polling interval dynamically.

my $cv = AnyEvent->condvar;
my $pasteboard_watcher = AnyEvenet::Mac::Pasteboard->new(
    interval => 1, # I want to change it after
    ...
);
my $signal_watcher = AnyEvent::signal->new(
    signal => "USR1",
    cb => sub {
        # change $watcher polling interval
    },
);
$cv->recv();

This module uses Mac::Pasteboard package's pbpaste() method for observation pasteboard changing. This method is faster than calling pbpaste shell command.

However, when it returns modified pasteboard content to user, it uses pbpaste shell command as backtick qx{pbpaste}.

Because I did not known Mac::Pasteboard::pbpaste() behavior. It often returns broken multibyte content when its method call without argument. Mac::Pasteboard::pbpaste() given flavor string as 1st argument. If It is given no flavor and pasteboard has multibyte string, then it breaks content on taking.

I wish that this module and method use only Mac::Pasteboard::pbpaste() method with suitable flavor, and I substitute this method for qx{pbpaste} backtick.

• http://search.cpan.org/~wyant/Mac-Pasteboard-0.009/lib/Mac/Pasteboard.pm#defaultFlavor