Liz::Survey::Question::Choice - module for Choice objects of the Survey
use Liz::Survey; $survey = new Liz::Survey;
$question = $survey->Question; $question = $survey->Question( $questionID );
$choice = $question->Choice( 1 ); $choice->update;
Provide object oriented access to choices in a Survey. Usually not accessed directly, but rather through the Liz::Survey object and its Question method.
Create a new Choice object from a Question object.
1 Liz::Question object 2 ordinal number of Choice object (default: none = new choice)
1 instantiated object
It is not intended to call this method directly, but rather indirectly through the Liz::Survey::Question module.
$survey = new Liz::Survey; $question = $survey->Question; $question = $survey->Question( $questionID );
$choice = $question->Choice( 1 );
Update a Choice object in the Liz::Survey database.
1 ordinal number with which the object was updated (undef = error)
$ordinal = $choice->update;
Delete a Liz::Survey::Question::Choice object from the database.
1 flag: whether action was successful
$question->delete;
The following methods allow you to inspect and/or change certain fields of the Liz::Survey::Question::Choice object.
Set or return the extra data of the Liz::Survey::Question object.
1 new extra data (default: no change)
1 current extra data
$question->Data( $data ); $data = $question->Data;
Return the ID of the Liz::Survey::Question::Choice object.
1 current ID of the object (is in fact the Question ID)
$ID = $choice->ID;
Return the ordinal number of the Liz::Survey::Question::Choice object.
1 current ordinal number of the choice
$ordinal = $choice->Ordinal;
Set or return the text of the Liz::Survey::Question object.
1 new text (default: no change)
1 current text
$question->Text( $text ); $text = $question->Text;
Elizabeth Mattijsen ( lizperl@INC.nl )
(C) 1999 International Network Consultants
Now no longer puts Exporter in ISA: it was not needed.
First version of this true Perl module.