/usr/local/CPAN/Qt/CarInterface.pm

• package CarInterface
  • staticInterfaceName
  • NEW
  • accelerate
  • decelerate
  • turnLeft
  • turnRight
• EOF

package CarInterface;

use strict;
use warnings;
use QtCore4;
use QtGui4;
use QtDBus4;
use QtCore4::isa qw( Qt::DBusAbstractInterface );

sub staticInterfaceName {
    return 'com.trolltech.Examples.CarInterface';
}

use QtCore4::slots
    accelerate => [],
    decelerate => [],
    turnLeft => [],
    turnRight => [];

use QtCore4::signals
    crashed => [];

sub NEW
{
    my ($class, $service, $path, $connection, $parent) = @_;
    $class->SUPER::NEW($service, $path, staticInterfaceName(), $connection, $parent);
}

sub accelerate
{
    return this->callWithArgumentList(Qt::DBus::Block(), 'accelerate', []);
}

sub decelerate()
{
    return this->callWithArgumentList(Qt::DBus::Block(), 'decelerate', []);
}

sub turnLeft()
{
    return this->callWithArgumentList(Qt::DBus::Block(), 'turnLeft', []);
}

sub turnRight()
{
    return this->callWithArgumentList(Qt::DBus::Block(), 'turnRight', []);
}

1;