Changeset 1991 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm

Timestamp:

04/27/17 00:47:33 (7 years ago)

Author:

nanardon

Message:

Use hash for loadCSV options to allow more parameters

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm (modified) (3 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm

@@ -180 +180 @@
 Parse CVS files and return an array for each parsed line.
 
-If defined call C<$callback> for parsed line.
-
-C<$initcallback>, if defined, is called just after the first line.
+C<%options> may contains
+
+=over 4
+
+=item C<initcb> An function call after parsing first line
+
+=item C<cb> A function call for each line
+
+=back
 
 =cut
 
 sub loadCSV {
-    my ($fh, $cb, $initcb) = @_;
+    my ($fh, %opt) = @_;
 
     my $csv = Text::CSV->new({
@@ -201 +207 @@
     $csv->column_names($columns);
 
-    if ($initcb) {
-        $initcb->($csv);
+    if ($opt{initcb}) {
+        $opt{initcb}->($csv);
     }
 
@@ -209 +215 @@
     while ( my $row = $csv->getline_hr( $fh ) ) {
         $linecount++;
-        if ($cb) {
-            if (! $cb->($row, $linecount)) {
+        if ($opt{cb}) {
+            if (! $opt{cb}->($row, $linecount)) {
                 return;
             }