view release on metacpan or  search on metacpan

Wyrd/Input/Complex.pm  view on Meta::CPAN

	my ($self) = @_;
	$self->_flags->complex(1);
}

sub _format_output {
	my ($self) = @_;
	$self->{'value'} ||= $self->default;
	$self->{'_error_messages'} ||= [];
	$self->{'_error_messages'} ||= [];
	$self->{'triggers'} = token_parse($self->{'triggers'});
	$self->{'_id'} = $self->{'_parent'}->register_input($self);
}

sub _generate_output {
	my ($self) = @_;
	#note that the _data attribute should be the enclosed text at this point, or the children won't
	#be output.
	$self->_set_children;
	my $id = $self->{'_id'};
	$self->_raise_exception('No ID provided by form') unless ($id);
	$self->{'_template'} = $self->_data;
	$self->_data('$:' . $id);
}

sub register_input {
	my ($self, $child) = @_;
	$self->register_child($child);
}

sub _parse_options {
	my ($self) = @_;
	$self->_unimplemented('If you are calling this method, you probably don\'t mean to.  It\'s for Apache::Wyrd::Datum objects and sets, really.');
}

=pod

=head1 AUTHOR

Barry King E<lt>wyrd@nospam.wyrdwright.comE<gt>

=head1 SEE ALSO

=over

=item Apache::Wyrd

General-purpose HTML-embeddable perl object

=back

=head1 LICENSE

Copyright 2002-2007 Wyrdwright, Inc. and licensed under the GNU GPL.

See LICENSE under the documentation for C<Apache::Wyrd>.

=cut

sub _unimplemented {
	my ($self, $params) = @_;
	my @method = caller(1);
	$self->_raise_exception("You need to override the $method[3] method. $params. This message applies to the Wyrd");
}

1;