Rose-DB-Object-I18N/t/lib/NewDB.pm

   1 package NewDB;
   2
   3 use DBI;
   4
   5 sub new {
   6     my $class = shift;
   7
   8     my $self = { db => "/tmp/rose-i18n.db" };
   9
  10     bless $self, $class;
  11
  12     return $self;
  13 }
  14
  15 sub init {
  16     my $self = shift;
  17
  18     my $db = $self->{ db };
  19
  20     unless ( -f $db ) {
  21         warn 'Creating new db...';
  22
  23         my $dbh = DBI->connect( "dbi:SQLite:$db" ) or die $DBI::errstr;
  24
  25         $dbh->do( <<SQL );
  26 CREATE TABLE `user` (
  27   `id` INTEGER PRIMARY KEY NOT NULL,
  28   `orig_lang` CHARACTER VARYING(2) NOT NULL,
  29   `name` CHARACTER VARYING(255) NOT NULL,
  30   UNIQUE (`name`)
  31 );
  32 SQL
  33
  34         $dbh->do( <<SQL );
  35 CREATE TABLE `user_i18n` (
  36   `i18nid` INTEGER PRIMARY KEY NOT NULL,
  37   `user_id` INTEGER NOT NULL,
  38   `lang` CHARACTER VARYING(2) NOT NULL,
  39   `signature` CHARACTER VARYING(255),
  40   `istran` TINYINT(1) NOT NULL DEFAULT 0
  41 );
  42 SQL
  43
  44         $dbh->disconnect();
  45     }
  46 }
  47
  48 sub cleanup {
  49     my $self = shift;
  50
  51     unlink $self->{ db };
  52 }
  53
  54 =head1 AUTHOR
  55
  56 vti
  57
  58 =head1 LICENSE
  59
  60 This library is free software, you can redistribute it and/or modify
  61 it under the same terms as Perl itself.
  62
  63 =cut
  64
  65 1;