1 package MojoFacets::Import::DBF;
10 use Data::Dump qw(dump);
12 __PACKAGE__->attr('full_path');
20 my $table = new XBase $self->full_path or die XBase->errstr;
23 header => [ $table->field_names ],
24 types => [ $table->field_types ],
25 lenghts=> [ $table->field_lengths ],
26 decimals=> [ $table->field_decimals ],
30 for (0 .. $table->last_record) {
31 my $item = $table->get_record_as_hash($_);
32 warn "$_ ",dump($item);
33 push @{ $data->{items} }, $item;