[libnet-dbus-perl] 20/335: Added more examples for strong typing

[Intrigeri]

This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to branch experimental
in repository libnet-dbus-perl.

commit 333995d3f7df8274a509444d3ba37d619b6e1e79
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Sun Oct 31 14:38:27 2004 +0000

    Added more examples for strong typing
---
 examples/echo.pl    | 24 ++++++++++++++++++++++++
 examples/service.pl |  5 +++++
 2 files changed, 29 insertions(+)

diff --git a/examples/echo.pl b/examples/echo.pl
new file mode 100644
index 0000000..e1d2336
--- /dev/null
+++ b/examples/echo.pl
@@ -0,0 +1,24 @@
+#/usr/bin/perl
+
+use Net::DBus;
+
+my $bus = Net::DBus->new($Net::DBus::TYPE_SESSION);
+
+my $service = $bus->get_service("org.example.MyService",
+				$bus);
+
+my $object = $service->get_object("/org/example/MyObject",
+				  "org.example.MyObject");
+
+
+use Data::Dumper;
+
+print "Echoed ", join("\n", Dumper($object->Echo(dstring ("Earth"),
+						 dboolean (1),
+						 dbyte (24),
+						 dint32(["1","0","1","1","1","0","1"]),
+						 "Some random stuff",
+						 dstring("More random stff"),
+						 dint32 (-24532),
+						 duint32 (32442)))), "\n";
+
diff --git a/examples/service.pl b/examples/service.pl
index 3218419..225533d 100644
--- a/examples/service.pl
+++ b/examples/service.pl
@@ -45,3 +45,8 @@ sub HelloWorld {
     
     return ("Hello", "World", $place);
 }
+
+sub Echo {
+    my $self = shift;
+    return @_;
+}

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-dbus-perl.git