move out some variables (for future usage)

1 files changed, 7 insertions, 6 deletions

diff --git a/lib/network/monitor.pm b/lib/network/monitor.pm
index 2b0ba94..fb9247a 100644
--- a/lib/network/monitor.pm
+++ b/lib/network/monitor.pm
@@ -5,13 +5,13 @@ use dbus_object;
 
 our @ISA = qw(dbus_object);
 
+my $monitor_service = "com.mandriva.monitoring";
+my $monitor_path = "/com/mandriva/monitoring/wireless";
+my $monitor_interface = "com.mandriva.monitoring.wireless";
+
 sub new {
     my ($type, $bus) = @_;
-    dbus_object::new($type,
-		       $bus,
-		       "com.mandriva.monitoring",
-		       "/com/mandriva/monitoring/wireless",
-		       "com.mandriva.monitoring.wireless");
+    dbus_object::new($type, $bus, $monitor_service, $monitor_path, $monitor_interface);
 }
 
 sub list_wireless {
@@ -104,7 +104,8 @@ sub list_wireless {
 
 sub select_network {
     my ($o, $id) = @_;
-    $o->call_method('SelectNetwork', Net::DBus::dbus_uint32($id));
+    my $method = 'SelectNetwork';
+    $o->call_method($method, Net::DBus::dbus_uint32($id));
 }
 
 1;