The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package HTMLFormFu::MockContext;
use strict;
use warnings;

sub new {
    my ( $class, $args ) = @_;
    
    return bless $args, $class;
}

sub model {
    my ( $self ) = @_;
    
    return $self->{model}
}

1;