1 package DBIx::Class::Loader::DB2;
4 use base 'DBIx::Class::Loader::Generic';
10 DBIx::Class::Loader::DB2 - DBIx::Class::Loader DB2 Implementation.
14 use DBIx::Class::Loader;
16 # $loader is a DBIx::Class::Loader::DB2
17 my $loader = DBIx::Class::Loader->new(
18 dsn => "dbi:DB2:dbname",
25 my $class = $loader->find_class('film'); # $class => Data::Film
26 my $obj = $class->retrieve(1);
30 See L<DBIx::Class::Loader>.
41 my $db_schema = uc ($args{db_schema} || '');
42 my $dbh = $self->{_storage}->dbh;
44 # this is split out to avoid version parsing errors...
45 my $is_dbd_db2_gte_114 = ( $DBD::DB2::VERSION >= 1.14 );
46 my @tables = $is_dbd_db2_gte_114 ?
47 $dbh->tables( { TABLE_SCHEM => '%', TABLE_TYPE => 'TABLE,VIEW' } )
49 # People who use table or schema names that aren't identifiers deserve
50 # what they get. Still, FIXME?
52 @tables = grep {!/^SYSIBM\./ and !/^SYSCAT\./ and !/^SYSSTAT\./} @tables;
53 @tables = grep {/^$db_schema\./} @tables if($db_schema);
58 my ( $self, $table ) = @_;
60 # print "_table_info($table)\n";
61 my ($db_schema, $tabname) = split /\./, $table, 2;
62 # print "DB_Schema: $db_schema, Table: $tabname\n";
64 # FIXME: Horribly inefficient and just plain evil. (JMM)
65 my $dbh = $self->{_storage}->dbh;
66 $dbh->{RaiseError} = 1;
68 my $sth = $dbh->prepare(<<'SQL') or die;
70 FROM SYSCAT.COLUMNS as c
71 WHERE c.TABSCHEMA = ? and c.TABNAME = ?
74 $sth->execute($db_schema, $tabname) or die;
75 my @cols = map { @$_ } @{$sth->fetchall_arrayref};
77 $sth = $dbh->prepare(<<'SQL') or die;
79 FROM SYSCAT.TABCONST as tc
80 JOIN SYSCAT.KEYCOLUSE as kcu ON tc.constname = kcu.constname
81 WHERE tc.TABSCHEMA = ? and tc.TABNAME = ? and tc.TYPE = 'P'
84 $sth->execute($db_schema, $tabname) or die;
86 my @pri = map { @$_ } @{$sth->fetchall_arrayref};
88 return ( \@cols, \@pri );
93 L<DBIx::Class::Loader>