The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

package
DBICTest::Schema::FileColumn;
use strict;
use File::Temp qw/tempdir/;
__PACKAGE__->load_components(qw/InflateColumn::File/);
__PACKAGE__->table('file_columns');
__PACKAGE__->add_columns(
id => { data_type => 'integer', is_auto_increment => 1 },
file => {
data_type => 'varchar',
is_file_column => 1,
file_column_path => tempdir(CLEANUP => 1),
size => 255
}
);
__PACKAGE__->set_primary_key('id');
1;