Pear-Trading/Foodloop-Server
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Added nicer explosions via try::tiny

Browse source
This commit is contained in:
Finn 2019-07-05 18:44:46 +01:00
parent d1cd30928e
commit afc635fdb4
No known key found for this signature in database
GPG key ID: 7455B4B17685B598
6 changed files with 27 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/Pear/LocalLoop/Import/Role/CSV.pm
View file

@ -70,17 +70,8 @@ has csv_data => (
sub check_headers {
my $self = shift;
my $req_headers = $self->csv_required_columns;
use Devel::Dwarn;
Dwarn $req_headers;
# TODO catch the boom
my @headers;
try {
@headers = $self->_text_csv->header( $self->_csv_filehandle );
} catch {
$self->csv_error = $_->[1];
};
return 0 unless @headers;
Dwarn \@headers;
@headers = $self->_text_csv->header( $self->_csv_filehandle );
my %header_map = ( map { $_ => 1 } @headers );
for my $req_header ( @$req_headers ) {
next if $header_map{$req_header};