view release on metacpan or  search on metacpan

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

	print "$name\n";

	return $name;

} # End of fifth_sub.

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

sub fourth_sub
{
	my($self) = @_;
	my($name) = __PACKAGE__ . '.fourth_sub()';

	print "$name\n";

	return $name;

} # End of fourth_sub.

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

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

	return $self -> query -> param('mode_param_sub_rm');

} # End of mode_param_sub.

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

sub second_sub
{
	my($self) = @_;
	my($name) = __PACKAGE__ . '.second_sub()';

	print "$name\n";

	return $name;

} # End of second_sub.

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

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

	$self -> mode_param(\&mode_param_sub);

} # 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) = @_;
	my($name) = __PACKAGE__ . '.sixth_sub()';

	print "$name\n";

	return $name;

} # End of sixth_sub.

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

sub third_sub
{
	my($self) = @_;
	my($name) = __PACKAGE__ . '.error_mode_sub()';

	print "$name\n";

	croak "$name\n";

} # End of third_sub.

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

1;