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