1package Netdot::Model::Contact;
2
3use base 'Netdot::Model';
4use warnings;
5use strict;
6
7=head1 NAME
8
9Netdot::Model::Contact
10
11=head1 INSTANCE METHODS
12=cut
13
14##################################################################
15
16=head2 get_label - Override get_label method
17
18  Arguments:
19    None
20  Returns:
21    string
22  Examples:
23    print $contact->get_label();
24
25=cut
26
27sub get_label {
28    my $self = shift;
29    my $lbl = $self->person->get_label;
30    $lbl .= ": ". $self->contacttype->name;
31    return $lbl;
32}
33
34# Make sure to return 1
351;
36
37=head1 AUTHOR
38
39Carlos Vicente, C<< <cvicente at ns.uoregon.edu> >>
40
41=head1 COPYRIGHT & LICENSE
42
43Copyright 2012 University of Oregon, all rights reserved.
44
45This program is free software; you can redistribute it and/or modify
46it under the terms of the GNU General Public License as published by
47the Free Software Foundation; either version 2 of the License, or
48(at your option) any later version.
49
50This program is distributed in the hope that it will be useful, but
51WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTIBILITY
52or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
53License for more details.
54
55You should have received a copy of the GNU General Public License
56along with this program; if not, write to the Free Software Foundation,
57Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
58
59=cut
60
611;
62