gistfile1.perl

package WhatsMyName;

use Moose;
extends 'WebGUI::Wizard';

# Define our steps
has '+steps' => {
	default => [qw( askForName respond )],
};

# Show a form in our wizard
sub www_askForName {
	my ( $self ) = @_;
	return '<input name="name" /><input type="submit"/>'; # outer bits of form are automatically handled
}

# Validate the form and return any errors
sub www_askForNameSave {
	my ( $self, $form ) = @_;
	if ( $form->{name} eq "doug" ) {
		return "WRONG!";
	}
}

# All steps prior to this have validated successfully
sub www_respond {
	return "That's right! And don't you forget it!";
}