Myco::Core::Person - Myco Person objects.

Myco-Core-Person documentation Contained in the Myco-Core-Person distribution.

Index

Code Index:

NAME

Top

Myco::Core::Person - Myco Person objects.

1.0

SYNOPSIS

Top

  use Myco;

  # Constructors. See Myco::Entity for more.
  my $p = Myco::Core::Person->new;

  # Name.
  my $last = $p->get_last;
  $p = $p->set_last($last);
  my $first = $p->get_first;
  $p = $p->set_first($first);
  my $middle = $p->get_middle;
  $p = $p->set_middle($middle);
  my $prefix = $p->get_prefix;
  $p = $p->set_prefix($prefix);
  my $suffix = $p->get_suffix;
  $p = $p->set_suffix($suffix);
  my $nick = $p->get_nick;
  $p = $p->set_nick($nick);

  # Vital Stats.
  my $gender = $p->get_gender;
  $p = $p->set_gender($gender);
  my $birthdate = $p->get_birthdate;
  $p = $p->set_birthdate($birthdate);

  # Added instance methods.
  my $format = "%p% f% M% l%, s";
  my $name = $p->strfname($format);
  my $uidf = $p->get_unique_id_fmt;

  # Persistence methods.
  $p->save;
  $p->destroy;

DESCRIPTION

Top

This class represents what may well be the central object of any Myco-based application: the Person. Myco::Core::Person provides the absolute bare bones skeleton of what most applications will need in a person object.

COMMON ENTITY INTERFACE

Top

Constructor, accessors, and other methods -- as inherited from Myco::Entity.

ATTRIBUTES

Top

Attributes may be initially set during object construction (with new()) but otherwise should be accessed solely through accessor methods. Typical usage:

A listing of available attributes follows:

last

 type: string(64)  required: not empty

The person&39;s last name.

first

 type: string(64)

The person&39;s first name.

middle

 type: string(64)

The person&39;s middle name.

prefix

 type: string(32)

The prefix to the person&39;s name.

suffix

 type: string(32)

The suffix to the person&39;s name.

nick

 type: string(64)

The person&39;s nick name.

birthdate

 type: rawdate

The person&39;s birthday.

ADDED CLASS / INSTANCE METHODS

Top

strfname

  my $format = "%p% f% M% l%, s";
  my $name = $person->strfname($format);

This method allows the parts of the person&39;s name to be formatted according to the strfname formatting template syntax. See Lingua::Strfname for the details of the formatting syntax. Note that the only difference here is that the "first extra name" is always the person&39;s nick name. Thus, the formatting characters are as follows:

  %l Last Name
  %f First Name
  %m Middle Name
  %p Prefix
  %s Suffix
  %a Nick Name
  %L Last Name Initial with period
  %F First Name Initial with period
  %M Middle Name Initial with period
  %A Nick Name Initial with period
  %T Last Name Initial
  %S First Name Initial
  %I Middle Name Initial
  %1 Nick Name Initial

LICENSE AND COPYRIGHT

Top

Copyright (c) 2006 the myco project. All rights reserved. This software is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHORS

Top

Charles Owens <charles@mycohq.com>, David Wheeler <david@wheeler.net>, and Ben Sommer <ben@mycohq.com>

SEE ALSO

Top

person.t in t, Myco::Entity, Myco (Myco), Tangram, Class::Tangram,

Myco-Core-Person documentation Contained in the Myco-Core-Person distribution. 
package Myco::Core::Person;

###############################################################################
# $Id: Person.pm,v 1.1.1.1 2006/02/28 22:15:51 sommerb Exp $
#
# See license and copyright near the end of this file.
###############################################################################


our $VERSION = 1.0;


##############################################################################
# Dependencies
##############################################################################
# Module Dependencies and Compiler Pragma
use warnings;
use strict;
use Myco::Exceptions;

##############################################################################
# Programmatic Dependencies
use Lingua::Strfname ();
use Myco::Util::Strings;

##############################################################################
# Inheritance & Introspection
##############################################################################
use lib '/usr/home/sommerb/dev/myco/lib';
use base qw(Myco::Entity);
my $md = Myco::Entity::Meta->new
  ( name => __PACKAGE__,
    tangram => { table => 'myco_core_person' },
  );

##############################################################################
# Function and Closure Prototypes
##############################################################################

# Use this code reference to validate the Unique ID.
my $chk_uid = sub {
    Myco::Exception::DataValidation->throw
      (error => "id must be of form ####-####-# (dashes optional)")
      unless defined ${$_[0]} and ${$_[0]} =~ /^\d{9}$/;
};

##############################################################################
# Queries - this is delayed to avoid compile loops
##############################################################################
my $queries = sub {
    my $md = shift;

    $md->add_query( name => 'default',
                    remotes => { '$p_' => 'Myco::Core::Person', },
                    result_remote => '$p_',
                    params => { last => [ qw($p_ last) ], },
                    filter => {
                               parts => [ { remote => '$p_',
                                            attr => 'last',
                                            oper => 'eq',
                                            param => 'last' },
                                        ] },
                  );

};

##############################################################################
# Constructor, etc.
##############################################################################


##############################################################################
# Attributes & Attribute Accessors / Schema Definition
##############################################################################


$md->add_attribute( name => 'last',
                    type => 'string',
                    type_options => { string_length => 64 },
                    synopsis => 'Last Name',
                    tangram_options => { required => 1 },
                  );



$md->add_attribute(name => 'first',
                   type => 'string',
		   type_options => { string_length => 64 },
                   synopsis => 'First Name',
                  );



$md->add_attribute(name => 'middle',
                   type => 'string',
		   type_options => { string_length => 64 },
                   synopsis => 'Middle Name',
                  );


$md->add_attribute(name => 'prefix',
                   type => 'string',
		   type_options => { string_length => 32 },
                   synopsis => 'Prefix',
		   values => [ qw( __select__ Ms. Miss Mrs. Mr. __other__ )],
                  );


$md->add_attribute(name => 'suffix',
                   type => 'string',
		   type_options => { string_length => 32 },
                   synopsis => 'Suffix',
		   values => [ qw( __select__ Jr. Sr. M.D. PhD. __other__ )],
                  );


$md->add_attribute(name => 'nick',
                   type => 'string',
		   type_options => { string_length => 64 },
                   synopsis => 'Nick Name',
                  );


$md->add_attribute( name => 'birthdate',
		    syntax_msg => 'YYYY-MM-DD (dashes optional)',
                    type => 'rawdate',
                    ui => { label => 'Birth Date' },
                  );


##############################################################################
# Methods
##############################################################################


sub strfname {
    Lingua::Strfname::strfname($_[1],
      @{$_[0]}{qw(last first middle prefix suffix nick)})
}

##############################################################################
# Object Schema Activation and Metadata Finalization
##############################################################################
$md->activate_class( queries => $queries );

1;
__END__