The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package MyApp::Form;
use strict;
use base qw( CatalystX::CRUD::Test::Form );

sub file_from_form {
    my $self = shift;
    return $self->SUPER::object_from_form(@_);
}

sub init_with_file {
    my $self = shift;
    return $self->SUPER::init_with_object(@_);
}

1;