aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-01-29 03:28:50 +0000
committerThierry Vignaud <tv@mageia.org>2012-01-29 03:28:50 +0000
commit41f7d0ae63e1770fc64d431151bbba9b96bcb0e9 (patch)
tree61198ba1c6834cdea0df31bb6e743cb87ec4c2a3
parent1638144c728d327fe3587ca133efcd1ab347e9ae (diff)
downloadperl-Hal-Cdroms-41f7d0ae63e1770fc64d431151bbba9b96bcb0e9.tar
perl-Hal-Cdroms-41f7d0ae63e1770fc64d431151bbba9b96bcb0e9.tar.gz
perl-Hal-Cdroms-41f7d0ae63e1770fc64d431151bbba9b96bcb0e9.tar.bz2
perl-Hal-Cdroms-41f7d0ae63e1770fc64d431151bbba9b96bcb0e9.tar.xz
perl-Hal-Cdroms-41f7d0ae63e1770fc64d431151bbba9b96bcb0e9.zip
(_GetProperty) introduce it as a wrapper to retrieve properties
-rw-r--r--lib/Hal/Cdroms.pm6
1 files changed, 6 insertions, 0 deletions
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) = @_;