package Pear::LocalLoop::Import::LCCCsv::Suppliers; use Moo; extends qw/Pear::LocalLoop::Import::LCCCsv/; has '+csv_required_columns' => ( builder => sub { return [ qw/ supplier_id name / ]; }, ); sub import_csv { my ($self) = @_; $self->check_headers; while ( my $row = $self->get_csv_line ) { $self->_row_to_result($row); } } sub _row_to_result { my ( $self, $row ) = @_; my $addr2 = $row->{post_town}; my $address = ( defined $addr2 ? ( $row->{"address line 2"} . ' ' . $addr2 ) : $row->{"address line 2"} ); return if $self->external_result->organisations->find( { external_id => $row->{supplier_id} } ); $self->schema->resultset('Entity')->create( { type => 'organisation', organisation => { name => $row->{name}, street_name => $row->{"address line 1"}, town => $address, postcode => $row->{post_code}, country => $row->{country_code}, external_reference => [ { external_reference => $self->external_result, external_id => $row->{supplier_id}, } ], } } ); } 1;