Changeset 34 for LATMOS-Accounts/lib/LATMOS/Accounts.pm

Timestamp:

04/23/09 03:11:06 (15 years ago)

Author:

nanardon

Message:

• _load_base must load the base, as name said

File:

• LATMOS-Accounts/lib/LATMOS/Accounts.pm (modified) (2 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -30 +30 @@
 sub default_base {
     my ($self) = @_;
-    my $default = $self->dafault_base_name or return;
+    my $default = $self->default_base_name or return;
     $self->base($default);
 }
@@ -46 +46 @@
     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);
+    my %params = map { $_ => ($self->val($section, $_)) } $self->Parameters($section);
+    my $base = LATMOS::Accounts::Bases->new($type, %params);
+    $base->load or return;
+    $base;
 }