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

Add code formatter, format all code

Browse source
This commit is contained in:
Rumperuu 2021-03-20 12:09:50 +00:00
parent 602a59f1c3
commit 47a55f6322
120 changed files with 8061 additions and 6967 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -9,80 +9,82 @@ use Pear::LocalLoop::Error;
requires 'csv_required_columns';
has csv_file => (
is => 'ro',
predicate => 1,
is => 'ro',
predicate => 1,
);
has csv_string => (
is => 'ro',
predicate => 1,
is => 'ro',
predicate => 1,
);
has csv_error => (
is => 'ro',
predicate => 1,
is => 'ro',
predicate => 1,
);
has _csv_filehandle => (
is => 'lazy',
builder => sub {
my $self = shift;
my $fh;
if ( $self->has_csv_file ) {
open $fh, '<', $self->csv_file;
} elsif ( $self->has_csv_string ) {
my $string = $self->csv_string;
open $fh, '<', \$string;
} else {
die "Must provide csv_file or csv_string"
is => 'lazy',
builder => sub {
my $self = shift;
my $fh;
if ( $self->has_csv_file ) {
open $fh, '<', $self->csv_file;
}
elsif ( $self->has_csv_string ) {
my $string = $self->csv_string;
open $fh, '<', \$string;
}
else {
die "Must provide csv_file or csv_string";
}
return $fh;
}
return $fh;
}
);
has text_csv_options => (
is => 'lazy',
builder => sub {
return {
binary => 1,
allow_whitespace => 1,
};
}
is => 'lazy',
builder => sub {
return {
binary => 1,
allow_whitespace => 1,
};
}
);
has _text_csv => (
is => 'lazy',
builder => sub {
return Text::CSV->new(shift->text_csv_options);
}
is => 'lazy',
builder => sub {
return Text::CSV->new( shift->text_csv_options );
}
);
has csv_data => (
is => 'lazy',
builder => sub {
my $self = shift;
my $header_check = $self->check_headers;
return 0 unless $header_check;
return $self->_text_csv->getline_hr_all( $self->_csv_filehandle );
}
is => 'lazy',
builder => sub {
my $self = shift;
my $header_check = $self->check_headers;
return 0 unless $header_check;
return $self->_text_csv->getline_hr_all( $self->_csv_filehandle );
}
);
sub get_csv_line {
my $self = shift;
return $self->_text_csv->getline_hr( $self->_csv_filehandle );
my $self = shift;
return $self->_text_csv->getline_hr( $self->_csv_filehandle );
}
sub check_headers {
my $self = shift;
my $req_headers = $self->csv_required_columns;
my @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};
die "Require header [" . $req_header . "]";
}
return 1;
my $self = shift;
my $req_headers = $self->csv_required_columns;
my @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};
die "Require header [" . $req_header . "]";
}
return 1;
}
1;

13
lib/Pear/LocalLoop/Import/Role/ExternalName.pm
View file

@ -6,14 +6,15 @@ use Moo::Role;
requires qw/
external_name
schema
/;
/;
has external_result => (
is => 'lazy',
builder => sub {
my $self = shift;
return $self->schema->resultset('ExternalReference')->find_or_create({ name => $self->external_name });
}
is => 'lazy',
builder => sub {
my $self = shift;
return $self->schema->resultset('ExternalReference')
->find_or_create( { name => $self->external_name } );
}
);
1;

6
lib/Pear/LocalLoop/Import/Role/Schema.pm
View file

@ -4,8 +4,8 @@ use warnings;
use Moo::Role;
has schema => (
is => 'ro',
required => 1,
is => 'ro',
required => 1,
);
1;
1;