Changeset 192

Timestamp:

05/26/09 18:42:07 (15 years ago)

Author:

nanardon

Message:

• warn if base does not load

File:

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

LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -53 +53 @@
         defattr => { map { $_ => ($self->val('_defattr_', $_)) } $self->Parameters('_defattr_') },
     );
-    my $base = LATMOS::Accounts::Bases->new($type, %params, label => $section)
-        or return;
+    my $base = LATMOS::Accounts::Bases->new($type, %params, label => $section) or do {
+        warn "Cannot instanciate base $section ($type)";
+        return;
+    };
     $base->load or return;
     $base;
@@ -122 +124 @@
     my $labfrom = $options{from} ? $self->base($options{from}) : $self->default_base;
 
-    my @labto = map { $self->base($_) } @{ $options{to} || []} or return;
+    my @labto =
+        grep { $_ }
+        map { $self->base($_) }
+        @{ $options{to} || []}
+        or return;
 
     my $sync = LATMOS::Accounts::Synchro->new(