X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FManual%2FIntro.pod;h=5c7f7e5809c9d76dd87d012f510472681b614198;hb=5f550837848772810f7ebe6067e1e50150560d39;hp=928a5654f750626c61b8083abb412e834afe0b4d;hpb=d56c319181b46e4f80d301d27d2f80e49751b460;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Manual/Intro.pod b/lib/DBIx/Class/Manual/Intro.pod index 928a565..5c7f7e5 100644 --- a/lib/DBIx/Class/Manual/Intro.pod +++ b/lib/DBIx/Class/Manual/Intro.pod @@ -74,7 +74,8 @@ L objects. Let's look at how you can set and use your first native L tree. First we'll see how you can set up your classes yourself. If you want them to -be auto-discovered, just skip to the next section, which shows you how to use +be auto-discovered, just skip to the L, which shows you how to use L. =head2 Setting it up manually @@ -105,13 +106,18 @@ required resultset classes. Next, create each of the classes you want to load as specified above: package My::Schema::Result::Album; - use base qw/DBIx::Class/; + use base qw/DBIx::Class::Core/; -Load any components required by each class with the load_components() method. -This should consist of "Core" plus any additional components you want to use. -For example, if you want to force columns to use UTF-8 encoding: +Load any additional components you may need with the load_components() method, +and provide component configuration if required. For example, if you want +automatic row ordering: - __PACKAGE__->load_components(qw/ ForceUTF8 Core /); + __PACKAGE__->load_components(qw/ Ordered /); + __PACKAGE__->position_column('rank'); + +Ordered will refer to a field called 'position' unless otherwise directed. Here you are defining +the ordering field to be named 'rank'. (NOTE: Insert errors may occur if you use the Ordered +component, but have not defined a position column or have a 'position' field in your row.) Set the table for your class: @@ -119,7 +125,7 @@ Set the table for your class: Add columns to your class: - __PACKAGE__->add_columns(qw/ albumid artist title /); + __PACKAGE__->add_columns(qw/ albumid artist title rank /); Each column can also be set up with its own accessor, data_type and other pieces of information that it may be useful to have -- just pass C a hash: @@ -130,28 +136,30 @@ of information that it may be useful to have -- just pass C a hash: size => 16, is_nullable => 0, is_auto_increment => 1, - default_value => '', }, artist => { data_type => 'integer', size => 16, is_nullable => 0, - is_auto_increment => 0, - default_value => '', }, title => { data_type => 'varchar', size => 256, is_nullable => 0, - is_auto_increment => 0, - default_value => '', + }, + rank => + { data_type => 'integer', + size => 16, + is_nullable => 0, + default_value => 0, } ); DBIx::Class doesn't directly use most of this data yet, but various related -modules such as L make use of it. Also it allows you to -create your database tables from your Schema, instead of the other way around. -See L for details. +modules such as L make use of it. +Also it allows you to create your database tables from your Schema, +instead of the other way around. +See L for details. See L for more details of the possible column attributes. @@ -173,34 +181,52 @@ to describe a column which contains an ID of another Table, or C to make a predefined accessor for fetching objects that contain this Table's foreign key: - __PACKAGE__->has_many('albums', 'My::Schema::Result::Artist', 'album_id'); + # in My::Schema::Result::Artist + __PACKAGE__->has_many('albums', 'My::Schema::Result::Album', 'artist'); See L for more information about the various types of available relationships and how you can design your own. -=head2 Using L +=head2 Using DBIx::Class::Schema::Loader -This is an external module, and not part of the L distribution. -Like L, it inspects your database, and automatically creates -classes for all the tables in your database. Here's a simple setup: +This module (L) is an external module, and not part +of the L distribution. It inspects your database, and automatically +creates classes for all the tables in your schema. - package My::Schema; - use base qw/DBIx::Class::Schema::Loader/; +The simplest way to use it is via the L script from the +L distribution. For example: + + $ dbicdump -o dump_directory=./lib \ + -o components='["InflateColumn::DateTime"]' \ + MyApp::Schema dbi:mysql:mydb user pass + +If you have a mixed-case database, use the C option, e.g.: - __PACKAGE__->loader_options( relationships => 1 ); + $ dbicdump -o dump_directory=./lib -o preserve_case=1 \ + -o components='["InflateColumn::DateTime"]' \ + MyApp::Schema dbi:mysql:mydb user pass - 1; +If you are using L, then you can use the helper that comes with +L: -The actual autoloading process will occur when you create a connected instance -of your schema below. + $ script/myapp_create.pl model MyDB DBIC::Schema MyDB::Schema \ + create=static moniker_map='{ foo => "FOO" }' dbi:SQLite:./myapp.db \ + on_connect_do='PRAGMA foreign_keys=ON' quote_char='"' -See the L documentation for more information on its -many options. +See L for more information on this +helper. + +See the L and L +documentation for more information on the many loader options. =head2 Connecting -To connect to your Schema, you need to provide the connection details. The -arguments are the same as for L: +To connect to your Schema, you need to provide the connection details or a +database handle. + +=head3 Via connection details + +The arguments are the same as for L: my $schema = My::Schema->connect('dbi:SQLite:/home/me/myapp/my.db'); @@ -212,7 +238,7 @@ second database you want to access: Note that L does not cache connections for you. If you use multiple connections, you need to do this manually. -To execute some sql statements on every connect you can add them as an option in +To execute some SQL statements on every connect you can add them as an option in a special fifth argument to connect: my $another_schema = My::Schema->connect( @@ -223,9 +249,19 @@ a special fifth argument to connect: { on_connect_do => \@on_connect_sql_statments } ); -See L for more information about +See L for more information about this and other special C-time options. +=head3 Via a database handle + +The supplied coderef is expected to return a single connected database handle +(e.g. a L C<$dbh>) + + my $schema = My::Schema->connect ( + sub { Some::DBH::Factory->connect }, + \%extra_attrs, + ); + =head2 Basic usage Once you've defined the basic classes, either manually or using @@ -252,8 +288,8 @@ instead: $album->set_column('title', 'Presence'); $title = $album->get_column('title'); -Just like with L, you call C to commit your changes to the -database: +Just like with L, you call C to save your changes to the +database (by executing the actual C statement): $album->update; @@ -374,6 +410,53 @@ L. =head1 NOTES +=head2 The Significance and Importance of Primary Keys + +The concept of a L in +DBIx::Class warrants special discussion. The formal definition (which somewhat +resembles that of a classic RDBMS) is I. However this is where the +similarity ends. Any time you call a CRUD operation on a row (e.g. +L, +L, +L, +etc.) DBIx::Class will use the values of of the +L columns to populate +the C clause necessary to accomplish the operation. This is why it is +important to declare a L +on all your result sources B. +In a pinch one can always declare each row identifiable by all its columns: + + __PACKAGE__->set_primary_keys (__PACKAGE__->columns); + +Note that DBIx::Class is smart enough to store a copy of the PK values before +any row-object changes take place, so even if you change the values of PK +columns the C clause will remain correct. + +If you elect not to declare a C, DBIx::Class will behave correctly +by throwing exceptions on any row operation that relies on unique identifiable +rows. If you inherited datasets with multiple identical rows in them, you can +still operate with such sets provided you only utilize +L CRUD methods: +L, +L, +L + +For example, the following would not work (assuming C does not have +a declared PK): + + my $row = $schema->resultset('People') + ->search({ last_name => 'Dantes' }) + ->next; + $row->update({ children => 2 }); # <-- exception thrown because $row isn't + # necessarily unique + +So instead the following should be done: + + $schema->resultset('People') + ->search({ last_name => 'Dantes' }) + ->update({ children => 2 }); # <-- update's ALL Dantes to have children of 2 + =head2 Problems on RHEL5/CentOS5 There used to be an issue with the system perl on Red Hat Enterprise