lib/Bio/GeneticRelationships/Individual.pm

   1 package Bio::GeneticRelationships::Individual;
   2 use strict;
   3 use warnings;
   4
   5 use Moose;
   6 use MooseX::FollowPBP;
   7 use Moose::Util::TypeConstraints;
   8 use Data::Dumper;
   9
  10 use Bio::GeneticRelationships::Pedigree;
  11
  12 =head1 NAME
  13
  14 Indvidual - An individual organism with genetic relationships to other individuals
  15
  16 =head1 SYNOPSIS
  17
  18 my $variable = Bio::GeneticRelationships::Individual->new();
  19
  20 =head1 DESCRIPTION
  21
  22 This class stores information about an individual organism and its genetic relationships to other individuals.
  23
  24 =head2 Methods
  25
  26 =over
  27
  28 =cut
  29
  30 has 'name' => (
  31     isa => 'Str',
  32     is => 'rw',
  33     predicate => 'has_name',
  34     required => 1,
  35     );
  36
  37 has 'id' => (
  38     isa => 'Int',
  39     is => 'rw',
  40     predicate => 'has_id',
  41     );
  42
  43 has 'pedigree' => (
  44     isa =>'Bio::GeneticRelationships::Pedigree',
  45     is => 'rw',
  46     predicate => 'has_pedigree',
  47     );
  48
  49
  50 ###
  51 1;#do not remove
  52 ###
  53
  54 =pod
  55
  56 =back
  57
  58 =head1 LICENSE
  59
  60 Same as Perl.
  61
  62 =head1 AUTHORS
  63
  64 Jeremy D. Edwards <jde22@cornell.edu>
  65
  66 =cut