lib/MojoFacets/Import/DBF.pm

   1 package MojoFacets::Import::DBF;
   2
   3 use warnings;
   4 use strict;
   5
   6 use base 'Mojo::Base';
   7
   8 use XBase;
   9
  10 use Data::Dump qw(dump);
  11
  12 __PACKAGE__->attr('full_path');
  13
  14 sub ext { '.dbf' };
  15
  16 sub data {
  17         my $self = shift;
  18
  19
  20         my $table = new XBase $self->full_path or die XBase->errstr;
  21
  22         my $data = {
  23                 header => [ $table->field_names ],
  24                 types  => [ $table->field_types ],
  25                 lenghts=> [ $table->field_lengths ],
  26                 decimals=> [ $table->field_decimals ],
  27                 items => [],
  28         };
  29
  30         for (0 .. $table->last_record) {
  31                 my $item = $table->get_record_as_hash($_);
  32                 warn "$_ ",dump($item);
  33                 push @{ $data->{items} }, $item;
  34         }
  35
  36         return $data;
  37
  38 }
  39
  40 1