unique-works.pl

use Gtk2 '-init';
use Gtk2::Unique;

my $window = Gtk2::Window->new('toplevel');

my $app = Gtk2::UniqueApp->new(
    "org.shit-got-loose", undef,
    select         => 1,
    nothing        => 2,
);

if ( $app->is_running ) {
	my $cmdid = 1;
	my $text = "hello world";

    print "Sending $cmdid, text => $text\n";
    $app->send_message( $cmdid, text => $text );
}
else {
    $app->watch_window($window);
    my $app_watch_id = $app->signal_connect(
        'message-received' => sub {
            my ( $app, $cmd, $message, $time ) = @_;

            print "Received IPC command: $cmd\n";
            print "Message: $message\n";

            if (defined $message->get) {
                print "defined!\n";
            }
            else {
                print "undefined :(\n";
            }

            if ( defined $cmd ) {

                if ( $cmd eq 'select' ) {
                	print "received select\n";
                	print "text: ";
                	my $text = $message->get_text; # kaboom
                	print $text . "\n";
                }
                elsif ( $cmd eq 'nothing' ) {
                	print "received nothing\n";
                	print "text: ";
                	my $text = $message->get_text; # kaboom
                	print $text . "\n";
                }
            }

            return 'ok';
        }
    );

    Gtk2->main;
}