DBus and Moose

Hi,

I just managed to write a Moose class that extends Net::DBus::Object
(using MooseX::NonMoose). Now I end up with a lot of code like this:

  dbus_method("Hello", ["string"], ["string"]);
  method Hello(Str $name) returns (Str) { ... }

Let's say I knew that all my DBus types were 1:1 mappable to Moose
types, what would I have to do to get rid of that "double" method
declaration?¹

Do you know of code out there that I could study and that would help me
on my task of writing a DBus application using Moose?

TIA,
Tobias

¹ dbus_method() comes from Net::DBus::Exporter and is used to export
  methods on the (D-)bus

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.11 (GNU/Linux)

iEYEARECAAYFAk5WCJ4ACgkQ5jrP7hWxSO8fSACgjULJYRYT1BuT9VhAzYJyCo0Z
YqIAoMEO3djj+izLEm9wSqlQ006sOSBv
=GGpf
-----END PGP SIGNATURE-----