t/lib/DBICTest/Schema/FileColumn.pm

   1 package
   2 DBICTest::Schema::FileColumn;
   3
   4 use strict;
   5 use warnings;
   6 use base qw/DBICTest::BaseResult/;
   7 use File::Temp qw/tempdir/;
   8
   9 __PACKAGE__->load_components(qw/InflateColumn::File/);
  10
  11 __PACKAGE__->table('file_columns');
  12
  13 __PACKAGE__->add_columns(
  14   id => { data_type => 'integer', is_auto_increment => 1 },
  15   file => {
  16     data_type        => 'varchar',
  17     is_file_column   => 1,
  18     file_column_path => tempdir(CLEANUP => 1),
  19     size             => 255
  20   }
  21 );
  22
  23 __PACKAGE__->set_primary_key('id');
  24
  25 1;