From: Kieren Diment Date: Mon, 13 Mar 2006 23:19:23 +0000 (+0000) Subject: Changed DB namespace to MyDatabase namespace X-Git-Tag: v0.06000~63 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f8d800d01b11b1a6e8a0e484f4b10d3e0c75dc25;p=dbsrgits%2FDBIx-Class.git Changed DB namespace to MyDatabase namespace --- diff --git a/lib/DBIx/Class/Manual/ExampleSchema.pod b/lib/DBIx/Class/Manual/ExampleSchema.pod index 9f4eb40..e2a5166 100644 --- a/lib/DBIx/Class/Manual/ExampleSchema.pod +++ b/lib/DBIx/Class/Manual/ExampleSchema.pod @@ -62,56 +62,56 @@ sqlite3 example.db < example.sql First, create some dirs and change working directory: - mkdir DB - mkdir DB/Main + mkdir MyDatabase + mkdir MyDatabase/Main Then, create the following DBIx::Class::Schema classes: -DB/Main.pm: +MyDatabase/Main.pm: - package DB::Main; + package MyDatabase::Main; use base qw/DBIx::Class::Schema/; __PACKAGE__->load_classes(qw/Artist Cd Track/); 1; -DB/Main/Artist.pm: +MyDatabase/Main/Artist.pm: - package DB::Main::Artist; + package MyDatabase::Main::Artist; use base qw/DBIx::Class/; __PACKAGE__->load_components(qw/Core/); __PACKAGE__->table('artist'); __PACKAGE__->add_columns(qw/ artistid name /); __PACKAGE__->set_primary_key('artistid'); - __PACKAGE__->has_many('cds' => 'DB::Main::Cd'); + __PACKAGE__->has_many('cds' => 'MyDatabase::Main::Cd'); 1; -DB/Main/Cd.pm: +MyDatabase/Main/Cd.pm: - package DB::Main::Cd; + package MyDatabase::Main::Cd; use base qw/DBIx::Class/; __PACKAGE__->load_components(qw/Core/); __PACKAGE__->table('cd'); __PACKAGE__->add_columns(qw/ cdid artist title/); __PACKAGE__->set_primary_key('cdid'); - __PACKAGE__->belongs_to('artist' => 'DB::Main::Artist'); - __PACKAGE__->has_many('tracks' => 'DB::Main::Track'); + __PACKAGE__->belongs_to('artist' => 'MyDatabase::Main::Artist'); + __PACKAGE__->has_many('tracks' => 'MyDatabase::Main::Track'); 1; -DB/Main/Track.pm: +MyDatabase/Main/Track.pm: - package DB::Main::Track; + package MyDatabase::Main::Track; use base qw/DBIx::Class/; __PACKAGE__->load_components(qw/Core/); __PACKAGE__->table('track'); __PACKAGE__->add_columns(qw/ trackid cd title/); __PACKAGE__->set_primary_key('trackid'); - __PACKAGE__->belongs_to('cd' => 'DB::Main::Cd'); + __PACKAGE__->belongs_to('cd' => 'MyDatabase::Main::Cd'); 1; @@ -122,10 +122,10 @@ insertdb.pl #!/usr/bin/perl -w - use DB::Main; + use MyDatabase::Main; use strict; - my $schema = DB::Main->connect('dbi:SQLite:example.db'); + my $schema = MyDatabase::Main->connect('dbi:SQLite:example.db'); # here's some of the sql that is going to be generated by the schema # INSERT INTO artist VALUES (NULL,'Michael Jackson'); @@ -186,10 +186,10 @@ testdb.pl: #!/usr/bin/perl -w - use DB::Main; + use MyDatabase::Main; use strict; - my $schema = DB::Main->connect('dbi:SQLite:example.db'); + my $schema = MyDatabase::Main->connect('dbi:SQLite:example.db'); get_tracks_by_cd('Bad'); get_tracks_by_artist('Michael Jackson'); @@ -339,8 +339,8 @@ It should output: =head1 Notes With these scripts we're relying on @INC looking in the current -working directory. You may want to add the DB namespaces to @INC in a -different way when it comes to deployemnt. +working directory. You may want to add the MyDatabase namespaces to +@INC in a different way when it comes to deployemnt. The testdb.pl script is an excellent start for testing your database model.