Fix RT#78436 - a replicated storage does not have a conninfo as such
[dbsrgits/DBIx-Class-Historic.git] / examples / Schema / insertdb.pl
1 #!/usr/bin/env perl
2
3 use strict;
4 use warnings;
5
6 use MyDatabase::Main;
7
8 my $schema = MyDatabase::Main->connect('dbi:SQLite:db/example.db');
9
10 #  here's some of the sql that is going to be generated by the schema
11 #  INSERT INTO artist VALUES (NULL,'Michael Jackson');
12 #  INSERT INTO artist VALUES (NULL,'Eminem');
13
14 my @artists = (['Michael Jackson'], ['Eminem']);
15 $schema->populate('Artist', [
16     [qw/name/],
17     @artists,
18 ]);
19
20 my %albums = (
21     'Thriller' => 'Michael Jackson',
22     'Bad' => 'Michael Jackson',
23     'The Marshall Mathers LP' => 'Eminem',
24 );
25
26 my @cds;
27 foreach my $lp (keys %albums) {
28     my $artist = $schema->resultset('Artist')->find({
29         name => $albums{$lp}
30     });
31     push @cds, [$lp, $artist->id];
32 }
33
34 $schema->populate('Cd', [
35     [qw/title artist/],
36     @cds,
37 ]);
38
39
40 my %tracks = (
41     'Beat It'         => 'Thriller',
42     'Billie Jean'     => 'Thriller',
43     'Dirty Diana'     => 'Bad',
44     'Smooth Criminal' => 'Bad',
45     'Leave Me Alone'  => 'Bad',
46     'Stan'            => 'The Marshall Mathers LP',
47     'The Way I Am'    => 'The Marshall Mathers LP',
48 );
49
50 my @tracks;
51 foreach my $track (keys %tracks) {
52     my $cd = $schema->resultset('Cd')->find({
53         title => $tracks{$track},
54     });
55     push @tracks, [$cd->id, $track];
56 }
57
58 $schema->populate('Track',[
59     [qw/cd title/],
60     @tracks,
61 ]);