]>
Dogcows Code - chaz/p5-DBIx-Class-ResultSet-RecursiveUpdate/blob - t/lib/DBSchema.pm
3d01f23f1bc0260fa26d3c7a9d6487a0c7a100b2
3 # Created by DBIx::Class::Schema::Loader v0.03000 @ 2006-10-02 08:24:09
8 use base
'DBIx::Class::Schema';
11 __PACKAGE__-
>load_namespaces( default_resultset_class
=> '+DBIx::Class::ResultSet::RecursiveUpdate' );
14 my ( $dsn, $user, $pass ) = @_;
15 my $dbh = DBI-
>connect($dsn, $user, $pass, );
16 return $dbh->tables( '%', '%', 'dvd', );
21 my ( $dsn, $user, $pass ) = @_;
22 $dsn ||= 'dbi:SQLite:dbname=t/var/dvdzbr.db';
24 my $schema = __PACKAGE__-
>connect( $dsn, $user, $pass, {} );
26 $deploy_attrs->{add_drop_table
} = 1 if tables_exist
( $dsn, $user, $pass );
27 $schema->deploy( $deploy_attrs );
28 $schema->populate('Personality', [
35 $schema->populate('User', [
36 [ qw
/username name password / ],
37 [ 'jgda', 'Jonas Alves', ''],
38 [ 'isa' , 'Isa', '', ],
39 [ 'zby' , 'Zbyszek Lukasiak', ''],
42 $schema->populate('Tag', [
49 $schema->populate('Dvd', [
50 [ qw
/name imdb_id owner current_borrower creation_date alter_date / ],
51 [ 'Picnick under the Hanging Rock', 123, 1, 3, '2003-01-16 23:12:01', undef ],
52 [ 'The Deerhunter', 1234, 1, 1, undef, undef ],
53 [ 'Rejs', 1235, 3, 1, undef, undef ],
54 [ 'Seksmisja', 1236, 3, 1, undef, undef ],
57 $schema->populate( 'Dvdtag', [
This page took 0.03898 seconds and 4 git commands to generate.