Bivio::Type::TupleChoiceList
# Copyright (c) 2009 bivio Software, Inc. All Rights Reserved.
# $Id$
package Bivio::Type::TupleChoiceList;
use strict;
use Bivio::Base 'Type.TupleSlot';
my($_IDI) = __PACKAGE__->instance_data_index;
sub new {
my($self) = shift->SUPER::new;
my($choices) = @_;
$self->[$_IDI] = $choices,
return $self;
}
sub provide_select_choices {
return shift->[$_IDI];
}
1;