package Catalyst::Plugin::SuperForm;

use strict;
use HTML::SuperForm;
use HTML::SuperForm::Field;
use HTML::SuperForm::Field::Checkbox;
use HTML::SuperForm::Field::CheckboxGroup;
use HTML::SuperForm::Field::Hidden;
use HTML::SuperForm::Field::Password;
use HTML::SuperForm::Field::Radio;
use HTML::SuperForm::Field::RadioGroup;
use HTML::SuperForm::Field::Select;
use HTML::SuperForm::Field::Submit;
use HTML::SuperForm::Field::Text;
use HTML::SuperForm::Field::Textarea;

our $VERSION = '0.01';

*sform = \&superform;

sub superform {
    my $c = shift;

    unless ( $c->{superform} ) {
        $c->{superform} = HTML::SuperForm->new( $c->request->parameters );

    return $c->{superform};



=head1 NAME

Catalyst::Plugin::SuperForm - Create sticky HTML forms


    use Catalyst qw[SuperForm];

    print $c->superform->text( 
        name => 'test'

    print $c->superform->select(
        name   => 'select',
        labels => {
            'DE' => 'Germany',
            'SE' => 'Sweden',
            'US' => 'United States'

    # Alias
    print $c->sform->text( name => 'test' );


Create sticky forms with C<HTML::SuperForm>.

=head1 METHODS

=over 4

=item sform

alias to superform

=item superform

Returns a instance of C<HTML::SuperForm>.


=head1 SEE ALSO

L<HTML::SuperForm>, L<Catalyst>.

=head1 AUTHOR

Christian Hansen, C<>

=head1 LICENSE

This library is free software. You can redistribute it and/or modify
it under the same terms as perl itself.