Changeset 21 for trunk

Timestamp:

09/28/05 16:54:48 (19 years ago)

Author:

thauvin

Message:

• start global object to handle config

Location:

trunk/soft/ObsData

Files:

• ObsData.pm (modified) (1 diff, 1 prop)
• t/O-01.t (added)
• testdata/obsdata-conftest (added)

trunk/soft/ObsData/ObsData.pm

@@ -5 +5 @@
 use strict;
 use warnings;
+use Config::IniFiles;
 
 our $VERSION = 0.01;
 
+sub new {
+    my ($class, $configfile) = @_;
+    my $obsdata = {
+        config => new Config::IniFiles(
+            -file => $configfile,
+            # -default => '', TODO
+            -allowcontinue => 1
+        ),
+    };
+    
+    (-f $configfile && -r _) && $obsdata->{config} or return undef;
+    bless($obsdata, $class);
+}
+
+1;