oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

only warn once on deprecations

Browse source
This commit is contained in:
Doug Bell 2010-11-04 13:20:01 -05:00
parent 4bb4dcec13
commit f14545ec12
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/User.pm
View file

@ -27,6 +27,8 @@ use WebGUI::Friends;
use WebGUI::Deprecate;
use Carp qw( carp );
my %deprecateMessage = ();
=head1 NAME
Package WebGUI::User
@ -209,7 +211,8 @@ Returns an instance of the authentication object for this user.
# DEPRECATED. Remove in 9.0
sub authInstance {
carp "WebGUI::User::authInstance is deprecated. Instantiate the auth method directly instead.";
my $message = "WebGUI::User::authInstance is deprecated. Instantiate the auth method directly instead.";
carp $message unless $deprecateMessage{$message}++;
my $self = shift;
my $session = $self->session;
@ -1192,7 +1195,8 @@ The value to set the profile field name to.
# DEPRECATED! Remove in 9.0
sub profileField {
carp "WebGUI::User::profileField is deprecated. Use get() and update() instead\n";
my $message = "WebGUI::User::profileField is deprecated. Use get() and update() instead\n";
carp $message unless $deprecateMessage{$message}++;
my $self = shift;
my $fieldName = shift;
my $value = shift;