view release on metacpan or  search on metacpan

t/lib/CGI/Snapp/RunModes.pm  view on Meta::CPAN

} # End of set_mode_param_1.

# ------------------------------------------------

sub set_mode_param_2
{
	my($self) = @_;

	$self -> mode_param('rm');

	# This will croak when the run mode is locked.

	$self -> prerun_mode('begin');

} # End of set_mode_param_2.

# ------------------------------------------------

sub sixth_sub
{
	my($self) = @_;