/usr/share/perl5/Bio/Chado/Schema/Result/NaturalDiversity/NdGeolocation.pm is in libbio-chado-schema-perl 0.20000-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 | package Bio::Chado::Schema::Result::NaturalDiversity::NdGeolocation;
BEGIN {
$Bio::Chado::Schema::Result::NaturalDiversity::NdGeolocation::AUTHORITY = 'cpan:RBUELS';
}
{
$Bio::Chado::Schema::Result::NaturalDiversity::NdGeolocation::VERSION = '0.20000';
}
# Created by DBIx::Class::Schema::Loader
# DO NOT MODIFY THE FIRST PART OF THIS FILE
use strict;
use warnings;
use base 'DBIx::Class::Core';
=head1 NAME
Bio::Chado::Schema::Result::NaturalDiversity::NdGeolocation
=head1 DESCRIPTION
The geo-referencable location of the stock. NOTE: This entity is subject to change as a more general and possibly more OpenGIS-compliant geolocation module may be introduced into Chado.
=cut
__PACKAGE__->table("nd_geolocation");
=head1 ACCESSORS
=head2 nd_geolocation_id
data_type: 'integer'
is_auto_increment: 1
is_nullable: 0
sequence: 'nd_geolocation_nd_geolocation_id_seq'
=head2 description
data_type: 'varchar'
is_nullable: 1
size: 255
A textual representation of the location, if this is the original georeference. Optional if the original georeference is available in lat/long coordinates.
=head2 latitude
data_type: 'real'
is_nullable: 1
The decimal latitude coordinate of the georeference, using positive and negative sign to indicate N and S, respectively.
=head2 longitude
data_type: 'real'
is_nullable: 1
The decimal longitude coordinate of the georeference, using positive and negative sign to indicate E and W, respectively.
=head2 geodetic_datum
data_type: 'varchar'
is_nullable: 1
size: 32
The geodetic system on which the geo-reference coordinates are based. For geo-references measured between 1984 and 2010, this will typically be WGS84.
=head2 altitude
data_type: 'real'
is_nullable: 1
The altitude (elevation) of the location in meters. If the altitude is only known as a range, this is the average, and altitude_dev will hold half of the width of the range.
=cut
__PACKAGE__->add_columns(
"nd_geolocation_id",
{
data_type => "integer",
is_auto_increment => 1,
is_nullable => 0,
sequence => "nd_geolocation_nd_geolocation_id_seq",
},
"description",
{ data_type => "varchar", is_nullable => 1, size => 255 },
"latitude",
{ data_type => "real", is_nullable => 1 },
"longitude",
{ data_type => "real", is_nullable => 1 },
"geodetic_datum",
{ data_type => "varchar", is_nullable => 1, size => 32 },
"altitude",
{ data_type => "real", is_nullable => 1 },
);
__PACKAGE__->set_primary_key("nd_geolocation_id");
=head1 RELATIONS
=head2 nd_experiments
Type: has_many
Related object: L<Bio::Chado::Schema::Result::NaturalDiversity::NdExperiment>
=cut
__PACKAGE__->has_many(
"nd_experiments",
"Bio::Chado::Schema::Result::NaturalDiversity::NdExperiment",
{ "foreign.nd_geolocation_id" => "self.nd_geolocation_id" },
{ cascade_copy => 0, cascade_delete => 0 },
);
=head2 nd_geolocationprops
Type: has_many
Related object: L<Bio::Chado::Schema::Result::NaturalDiversity::NdGeolocationprop>
=cut
__PACKAGE__->has_many(
"nd_geolocationprops",
"Bio::Chado::Schema::Result::NaturalDiversity::NdGeolocationprop",
{ "foreign.nd_geolocation_id" => "self.nd_geolocation_id" },
{ cascade_copy => 0, cascade_delete => 0 },
);
# Created by DBIx::Class::Schema::Loader v0.07010 @ 2011-03-16 23:09:59
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:ON4sQF043ybOTaJjiUnQcA
=head2 create_geolocationprops
Usage: $set->create_geolocationprops({ baz => 2, foo => 'bar' });
Desc : convenience method to create geolocation properties using cvterms
from the ontology with the given name
Args : hashref of { propname => value, ...},
options hashref as:
{
autocreate => 0,
(optional) boolean, if passed, automatically create cv,
cvterm, and dbxref rows if one cannot be found for the
given geolocationprop name. Default false.
cv_name => cv.name to use for the given geolocationprops.
Defaults to 'geolocation_property',
db_name => db.name to use for autocreated dbxrefs,
default 'null',
dbxref_accession_prefix => optional, default
'autocreated:',
definitions => optional hashref of:
{ cvterm_name => definition,
}
to load into the cvterm table when autocreating cvterms
rank => force numeric rank. Be careful not to pass ranks that already exist
for the property type. The function will die in such case.
allow_duplicate_values => default false.
If true, allow duplicate instances of the same geolocation
and value in the properties of the geolocation. Duplicate
values will have different ranks.
}
Ret : hashref of { propname => new geolocationprop object }
=cut
sub create_geolocationprops {
my ($self, $props, $opts) = @_;
# process opts
$opts->{cv_name} = 'geolocation_property'
unless defined $opts->{cv_name};
return Bio::Chado::Schema::Util->create_properties
( properties => $props,
options => $opts,
row => $self,
prop_relation_name => 'nd_geolocationprops',
);
}
# You can replace this text with custom content, and it will be preserved on regeneration
1;
|