1 2 3 4 5 6 7 8 9 10 11 12 13 14
package App::XScreenSaver::DBus::SaverProxy; use v5.20;use strict;use warnings;# this is the interface name use Net::DBus::Exporter qw(org.freedesktop.ScreenSaver);use parent 'Net::DBus::ProxyObject';# VERSION # ABSTRACT: proxy dbus object dbus_method('Inhibit',['string','string','caller'],['uint32']);dbus_method('UnInhibit',['uint32','caller'],[]); 1;