lots of modularization done, needs testing and is unstable

1 files changed, 2 insertions, 5 deletions

diff --git a/modules/xml.pl b/modules/xml.pl
index 4a4d702..c497ffc 100644
--- a/modules/xml.pl
+++ b/modules/xml.pl
@@ -1,7 +1,9 @@
+package ASM::XML;
 use warnings;
 use strict;
 
 use XML::Simple qw(:strict);
+use IO::All;
 
 $::xs1 = XML::Simple->new( KeyAttr => ['id'], Cache => [ qw/storable memcopy/ ]);
 
@@ -52,9 +54,4 @@ sub writeSettings {
   $::xs1->XMLout($::settings, RootName => 'settings', GroupTags => { altnicks => 'altnick', server => 'host', autojoins => 'autojoin' }, NoAttr => 1) > io("$p/settings.xml");
 }
 
-sub Xml::killsub {
-  undef &readXML;
-  undef &writeXML;
-}
-
 return 1;