diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-01-29 03:28:50 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-01-29 03:28:50 +0000 |
| commit | 41f7d0ae63e1770fc64d431151bbba9b96bcb0e9 (patch) | |
| tree | 61198ba1c6834cdea0df31bb6e743cb87ec4c2a3 | |
| parent | 1638144c728d327fe3587ca133efcd1ab347e9ae (diff) | |
| download | perl-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.pm | 6 |
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) = @_; |