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 WebGUI::Deprecate;
use Carp qw( carp ); use Carp qw( carp );
my %deprecateMessage = ();
=head1 NAME =head1 NAME
Package WebGUI::User Package WebGUI::User
@ -209,7 +211,8 @@ Returns an instance of the authentication object for this user.
# DEPRECATED. Remove in 9.0 # DEPRECATED. Remove in 9.0
sub authInstance { 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 $self = shift;
my $session = $self->session; my $session = $self->session;
@ -1192,7 +1195,8 @@ The value to set the profile field name to.
# DEPRECATED! Remove in 9.0 # DEPRECATED! Remove in 9.0
sub profileField { 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 $self = shift;
my $fieldName = shift; my $fieldName = shift;
my $value = shift; my $value = shift;