lib/CXGN/Stock/ParseUpload.pm

   1 package CXGN::Stock::ParseUpload;
   2
   3 use Moose;
   4 use Data::Dumper;
   5 use MooseX::FollowPBP;
   6 use Moose::Util::TypeConstraints;
   7
   8 with 'MooseX::Object::Pluggable';
   9
  10
  11 has 'chado_schema' => (
  12                        is       => 'ro',
  13                        isa      => 'DBIx::Class::Schema',
  14                        required => 1,
  15                       );
  16
  17 has 'filename' => (
  18                    is => 'ro',
  19                    isa => 'Str',
  20                    required => 1,
  21                   );
  22
  23 has 'editable_stock_props' => (
  24     is => 'ro',
  25     isa => 'ArrayRef',
  26     required => 1,
  27 );
  28
  29 has 'parse_errors' => (
  30                        is => 'ro',
  31                        isa => 'HashRef',
  32                        writer => '_set_parse_errors',
  33                        reader => 'get_parse_errors',
  34                        predicate => 'has_parse_errors',
  35                       );
  36
  37 has '_parsed_data' => (
  38                        is => 'ro',
  39                        isa => 'HashRef',
  40                        writer => '_set_parsed_data',
  41                        predicate => '_has_parsed_data',
  42                       );
  43
  44 sub parse {
  45   my $self = shift;
  46
  47   if (!$self->_validate_with_plugin()) {
  48                 my $errors = $self->get_parse_errors();
  49     print STDERR "\nCould not validate trial file: ".$self->get_filename()."\nError:".Dumper($errors)."\n";
  50     return;
  51   }
  52
  53   print STDERR "Check 3.1: CXGN::Stock::ParseUpload ".localtime();
  54
  55   if (!$self->_parse_with_plugin()) {
  56                 my $errors = $self->get_parse_errors();
  57     print STDERR "\nCould not parse trial file: ".$self->get_filename()."\nError:".Dumper($errors)."\n";
  58     return;
  59   }
  60
  61   print STDERR "Check 3.2: CXGN::Stock::ParseUpload ".localtime();
  62
  63   if (!$self->_has_parsed_data()) {
  64                 my $errors = $self->get_parse_errors();
  65     print STDERR "\nNo parsed data for trial file: ".$self->get_filename()."\nError:".Dumper($errors)."\n";
  66     return;
  67   } else {
  68     return $self->_parsed_data();
  69   }
  70
  71   print STDERR "Check 3.3: CXGN::Stock::ParseUpload ".localtime();
  72
  73         my $errors = $self->get_parse_errors();
  74   print STDERR "\nError parsing trial file: ".$self->get_filename()."\nError:".Dumper($errors)."\n";
  75   return;
  76 }
  77
  78
  79 1;