Help for this page

Select Code to Download


  1. or download this
    use 5.020;
    use strict;
    ...
    Net::DBus::Reactor->main->run;
    
    exit 0;
    
  2. or download this
    use 5.020;
    use strict;
    ...
    my $bus = Net::DBus->session;
    my $rex = $bus->get_service("org.my.rex")->get_object("/my/dog/rex");
    $rex->walk_dog;
    
  3. or download this
    <!DOCTYPE busconfig PUBLIC "-//freedesktop//DTD D-BUS Bus Configuratio
    +n 1.0//EN" "http://www.freedesktop.org/standards/dbus/1.0/busconfig.d
    +td">
    <busconfig>
    ...
          <deny receive_sender="org.my.rex"/>
       </policy>
    </busconfig>