From 0bf35d9e4eb8f712211b2805b76c273b1cc56049 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 14 Mar 2008 17:51:28 +0000 Subject: bless network::connection_manager objects --- lib/network/connection_manager.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'lib/network/connection_manager.pm') diff --git a/lib/network/connection_manager.pm b/lib/network/connection_manager.pm index 9d6145f..cb24859 100644 --- a/lib/network/connection_manager.pm +++ b/lib/network/connection_manager.pm @@ -28,9 +28,11 @@ sub create_pixbufs() { }; } -sub create { - my ($in, $net, $w, $pixbufs) = @_; - { in => $in, net => $net, gui => { w => $w, pixbufs => $pixbufs } }; +sub new { + my ($class, $in, $net, $w, $pixbufs) = @_; + bless { + in => $in, net => $net, gui => { w => $w, pixbufs => $pixbufs }, + }, $class; } sub set_connection { -- cgit v1.2.1