gistfile1.txt

class CSV::Row is Iterable does Positional {
    has Text::CSV  $.csv;
    has CSV::Field @.fields is rw;

    multi method new (@f) {
        @!fields = @f.map ({ CSV::Field.new (*) });
        }

    method Str      { $!csv ?? $!csv.string (@!fields) !! Str; }
    method iterator { [ @.fields ].iterator; }
    method hash     { my @h = $!csv.column_names or return;
                      hash @h Z @!fields;
                      }
    method AT-POS (int $i) { @!fields[$i]; }

    multi method push (CSV::Field $f) { @!fields.push: $f; }
    multi method push (Cool       $f) { @!fields.push: CSV::Field.new ($f); }
#   multi method push (CSV::Row   $r) { for ($r.fields) -> $f { @!fields.push: $f; }}
    multi method push (CSV::Row   $r) { @!fields.push: @$r.fields; }}

    method pop returns CSV::Field { @!fields.pop; }
    }