lib/CXGN/Location/LocationLookup.pm

   1 package CXGN::Location::LocationLookup;
   2
   3 =head1 NAME
   4
   5 CXGN::Location::LocationLookup - a module to lookup geolocations by name.
   6
   7
   8 =head1 USAGE
   9
  10  my $location_lookup = CXGN::Location::LocationLookup->new({ schema => $schema} );
  11
  12
  13 =head1 DESCRIPTION
  14
  15 Looks up geolocations ("NaturalDiversity::NdGeolocation") by name. Provides the NaturalDiversity::NdGeolocation object when a geolocation matches.
  16
  17 =head1 AUTHORS
  18
  19  Jeremy D. Edwards (jde22@cornell.edu)
  20
  21 =cut
  22
  23 use Moose;
  24 use MooseX::FollowPBP;
  25 use Moose::Util::TypeConstraints;
  26 use Try::Tiny;
  27
  28 has 'schema' => (
  29                  is       => 'rw',
  30                  isa      => 'DBIx::Class::Schema',
  31                  lazy_build => 1,
  32                 );
  33 has 'location_name' => (isa => 'Str', is => 'rw', predicate => 'has_location_name', clearer => 'clear_location_name');
  34
  35 sub get_geolocation {
  36   my $self = shift;
  37   my $schema = $self->get_schema();
  38   my $geolocation;
  39   if (!$self->has_location_name()){
  40     return;
  41   }
  42   $geolocation = $schema->resultset("NaturalDiversity::NdGeolocation")
  43     ->find({
  44             description => $self->get_location_name(),
  45            });
  46   return $geolocation;
  47 }
  48
  49
  50 #######
  51 1;
  52 #######