use strict;
use warnings;

my $db = 'test.db';
my $sql = <<'END';
create table composed_key(
    id1 integer,
    id2 integer,
    value integer,
    primary key (id1, id2)
);
END

unlink $db if -f $db;
open my $fh, "| sqlite3 $db" or die "Cannot pipe to sqlite3: $!";
print $fh $sql or die $!;
close $fh or die $!;
{
        package The::Schema;
        use base qw/DBIx::Class::Schema::Loader/;
}
my $schema = The::Schema->connect("dbi:SQLite:dbname=$db");
print Dumper( $schema->source('ComposedKey')->column_info( 'id1' ) ); use Data::Dumper;