From 41f7d0ae63e1770fc64d431151bbba9b96bcb0e9 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sun, 29 Jan 2012 03:28:50 +0000
Subject: (_GetProperty) introduce it as a wrapper to retrieve properties

---
 lib/Hal/Cdroms.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lib/Hal/Cdroms.pm b/lib/Hal/Cdroms.pm
index 5a8ff38..af9f1f9 100644
--- a/lib/Hal/Cdroms.pm
+++ b/lib/Hal/Cdroms.pm
@@ -93,6 +93,12 @@ sub _get_volume {
     my ($o, $hal_path) = @_;
     $o->{hal}->get_object($hal_path, "$hal_dn.Device.Volume");
 }
+
+sub _GetProperty {
+    my ($device, $pname) = @_;
+    $device->Get('org.freedesktop.DBus.Properties', $pname);
+}
+
 sub get_mount_point {
     my ($o, $hal_path) = @_;
 
-- 
cgit v1.2.1