lib/CXGN/BrAPI.pm

   1 package CXGN::BrAPI;
   2
   3 use Moose;
   4 use Data::Dumper;
   5 use CXGN::BrAPI::v1::Authentication;
   6 use CXGN::BrAPI::v1::Calls;
   7 use CXGN::BrAPI::v1::Crops;
   8 use CXGN::BrAPI::v1::ObservationVariables;
   9 use CXGN::BrAPI::v1::Studies;
  10 use CXGN::BrAPI::v1::Germplasm;
  11 use CXGN::BrAPI::v1::GermplasmAttributes;
  12 use CXGN::BrAPI::v1::Trials;
  13 use CXGN::BrAPI::v1::Markerprofiles;
  14 use CXGN::BrAPI::v1::Programs;
  15 use CXGN::BrAPI::v1::Locations;
  16 use CXGN::BrAPI::v1::Phenotypes;
  17 use CXGN::BrAPI::v1::Traits;
  18 use CXGN::BrAPI::v1::GenomeMaps;
  19 use CXGN::BrAPI::v1::Samples;
  20 use CXGN::BrAPI::v1::VendorSamples;
  21 use CXGN::BrAPI::v1::Observations;
  22
  23 has 'version' => (
  24         isa => 'Str',
  25         is => 'rw',
  26         required => 1,
  27 );
  28
  29 has 'brapi_module_inst' => (
  30         isa => 'HashRef',
  31         is => 'rw',
  32         required => 1,
  33 );
  34
  35 sub brapi_wrapper {
  36         my $self = shift;
  37         my $module = shift;
  38
  39         my $brapi_package = 'CXGN::BrAPI::'.$self->version().'::'.$module;
  40         push @{$self->brapi_module_inst->{status}}, { 'info' => "Loading $brapi_package" };
  41         my $brapi_module = $brapi_package->new($self->brapi_module_inst);
  42         return $brapi_module;
  43 }
  44
  45
  46 1;