Changeset 22 for LATMOS-Accounts

Timestamp:

04/10/09 16:14:23 (15 years ago)

Author:

nanardon

Message:

• start work on core of the system

Location:

LATMOS-Accounts

Files:

• lib/LATMOS/Accounts.pm (modified) (1 diff)
• t/20_accounts.t (added)
• testdata/config (added)

LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -4 +4 @@
 use strict;
 use warnings;
+use base qw(Config::IniFiles);
+use LATMOS::Accounts::Bases;
 
-require Exporter;
+our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
 
-our @ISA = qw(Exporter);
+sub new {
+    my ($class, $config) = @_;
 
-# Items to export into callers namespace by default. Note: do not export
-# names by default without a very good reason. Use EXPORT_OK instead.
-# Do not simply export all your public functions/methods/constants.
+    my $self = Config::IniFiles->new(
+        -file => $config
+    );
 
-# This allows declaration       use LATMOS::Accounts ':all';
-# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
-# will save memory.
-our %EXPORT_TAGS = ( 'all' => [ qw(
-        
-) ] );
+    bless($self, $class)
+}
 
-our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
+sub base {
+    my ($self, $section) = @_;
+    # this method perform a cache
+    $self->{_bases}{$section} and return $self->{_bases}{$section};
+    $self->load_base($section) ? $self->{_bases}{$section} : undef;
+}
 
-our @EXPORT = qw(
-        
-);
+# load or reload a base
+sub load_base {
+    my ($self, $section) = @_;
+    return ($self->{_bases}{$section} = $self->_load_base($section))
+        ? 1
+        : 0;
+}
 
-our $VERSION = '0.01';
-
-
-# Preloaded methods go here.
+# do the bad work
+sub _load_base {
+    my ($self, $section) = @_;
+    my $type = $self->val($section, 'type') or return;
+    my %params = map { $_ => ($self->val($section, $_) || undef) } $self->Parameters($section);
+    return LATMOS::Accounts::Bases->new($type, %params);
+}
 
 1;