File Coverage

blib/lib/Gantry/Stash/View/Form.pm

Criterion	Covered	Total	%
statement	3	19	15.7
branch	0	8	0.0
condition			n/a
subroutine	1	5	20.0
pod			n/a
total	4	32	12.5

package Gantry::Stash::View::Form;
package form;

use strict;

sub new {
    my $class   = shift;
    my $input   = shift;

    my $self;

    if ( $input ) { $self = bless( $input, $class ); }
    else          { $self = bless( {},     $class ); }

    return $self;
}

sub results {
    my( $self, $p ) = ( shift, shift );

    $self->{results} = $p if defined $p;
    return( $self->{results} );
}


sub error_text {
    my( $self, $p ) = ( shift, shift );

    $self->{error_text} = $p if defined $p;
    return( $self->{error_text} );

} # end error_text

sub message {
    my( $self, $p ) = ( shift, shift );

    $self->{message} = $p if defined $p;
    return( $self->{message} );
}

1;

__END__