Liz::EmailAddress - module for EmailAddress objects
use Liz::Forum; $forum = new Liz::Forum; $email = $forum->EmailAddress; $email = $forum->EmailAddress( 'email@example.com' ); $email = $forum->EmailAddress( $emailID );
Create a new Forum EmailAddress object from a Forum object.
1 standard Liz::SQL object 2 ID or email-address to created EmailAddress object with
1 instantiated object 2 flag: whether tables were just created
It is not intended to call this method directly, but rather indirectly through the Module::EmailAddress module.
$forum = new Liz::Forum; $email = $forum->EmailAddress; $email = $forum->EmailAddress( 'liz@xxLINK.nl' ); $email = $forum->EmailAddress( $emailID );
Update a EmailAddress object in the Liz::EmailAddress database.
1 ID with which the object was updated (undef = error)
Set or return the From: (name + email address) of the Liz::EmailAddress object. Check field ERROR for errors.
1 full email address to set Name and Address to
1 current/previous value
The following methods allow changes to information that is associated with the message object.
Obtain or change the email address associated with the Liz::EmailAddress object. Check method Error to find out whether or not the email address was correctly formatted.
$address = $email->Address; $email->Address( 'liz@xxLINK.nl' );
Called when a method is not found. In the Liz::EmailAddress module we assume that if the method does not exist, it is assumed that the method is setting or returning an uppercased key of the object that was available.
Call method allow to specify which keys should be obtained using the Liz::SQL AUTOLOADed methods.
1 value to set (default: no change)
1 old/current value
$object->Score( 100 ); # set value of key 'SCORE' $score = $object->Score; # obtain value of key 'SCORE'
Reset all emailaddress information in the database.
$address->Reset; print "All email addresses have been removed\n";
The following methods are intended for internal use only.
Return the name of an ID. Primarily intended for internal use only.
1 ID value 2 table of ID (default: look up name of table with ID)
1 name of ID
$name = $object->ID2Name( $ID );
Return the ID of a name in a table. Primarily intended for internal use only.
1 name of table of which to obtain ID 2 string to obtain the ID of
1 ID of string
If the name is already escaped and sortname is already set with lowercase characters, then you should use method ``_Name2ID''.
$ID = $object->Name2ID( 'table','Norway' );
Elizabeth Mattijsen ( lizperl@INC.nl )
(C) 1998-1999 International Network Consultants
Now no longer add Exporter to ISA: it wasn't necessary.
Changed all CREATE TABLEs to calls to the new Liz::SQL 'create' method. This should again give a significant speed increase in e.g. forums that use this module.
Changed from using method ``Exists'' to ``Count'' in method new to be able to more quickly check for the existence of a table.
Method new now sets global variable
$ERROR if obtaining of an existing
Method new now optionally returns a flag to indicate whether the tables where just created. This to facilitate subclassing and adding extra fields.
Changed typography of source to new indented format.
Now uses fully qualified global variables names to reduce memory footprint.
Method update now returns the ID with which the object was created.
Some more error checking added to method Address.
Fixed problem with method new if an email address was specified instead of an ID. Problem introduced on June 1st.
Updated to new Bulk method.
First version of this true Perl module.