File Coverage

blib/lib/CGI/Application/Plugin/SuperForm.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	27	27	100.0

package CGI::Application::Plugin::SuperForm;
use HTML::SuperForm;
use strict;
use warnings;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;

@ISA = qw(Exporter AutoLoader);

@EXPORT = qw(
  &superform
  &sform
);

@EXPORT_OK = qw(
);

$VERSION = '0.5';

sub superform {
	my $c       = shift;
	my $options = shift;

	#
	# Create a superform if needed and cache it for reuse.
	#
	unless ( $c->{__superform} ) {
		$c->{__superform} = HTML::SuperForm->new( $c->query() );

		#
		# Use values in query to populate forms
		#
		$c->{__superform}->sticky(1);

		#
		# If no values found in query then fall back to user defined defaults
		#
		$c->{__superform}->fallback(1);
	}
	return $c->{__superform};
}

# short alias
*sform = \&superform;

1;
__END__