[svn:dbi] r14357 - dbi/trunk/lib/DBI/DBD/SqlEngine

[REHSACK]

Author: REHSACK
Date: Mon Aug 30 13:08:01 2010
New Revision: 14357

Modified:
   dbi/trunk/lib/DBI/DBD/SqlEngine/HowTo.pod

Log:
minor enhancements

Modified: dbi/trunk/lib/DBI/DBD/SqlEngine/HowTo.pod
==============================================================================
--- dbi/trunk/lib/DBI/DBD/SqlEngine/HowTo.pod   (original)
+++ dbi/trunk/lib/DBI/DBD/SqlEngine/HowTo.pod   Mon Aug 30 13:08:01 2010
@@ -8,9 +8,10 @@
   perldoc DBI
   perldoc DBI::DBD
   perldoc DBI::DBD::SqlEngine::Developers
+  perldoc SQL::Eval
   perldoc DBI::DBD::SqlEngine
   perldoc DBI::DBD::SqlEngine::HowTo
-  perldoc DBD::File::Developers
+  perldoc SQL::Statement::Embed
 
 =head1 DESCRIPTION
 
@@ -29,7 +30,8 @@
 
 =head1 CREATING DRIVER CLASSES
 
-Do you have an entry in DBI's DBD registry?
+Do you have an entry in DBI's DBD registry? For this guide, a prefix of
+C<foo_> is assumed.
 
 =head2 Sample Skeleton
 
@@ -37,11 +39,11 @@
 
     use strict;
     use warnings;
-    use vars qw(@ISA $VERSION);
+    use vars qw($VERSION);
+    use base qw(DBI::DBD::SqlEngine);
 
     use DBI ();
 
-    @ISA = qw(DBI::DBD::SqlEngine);
     $VERSION = "0.001";
 
     package DBD::Foo::dr;
@@ -117,16 +119,15 @@
            foo_manager_type    => 1,   # contains the manager class of the 
driver instance
        };
        $dbh->{foo_readonly_attrs} = {
-           foo_version         => 1,   # contains version of this driver
-           foo_valid_attrs     => 1,   # contains the valid attributes of foo 
drivers
-           foo_readonly_attrs  => 1,   # contains immutable attributes of foo 
drivers
-           foo_manager         => 1,   # contains the manager of the driver 
instance
+           foo_version         => 1,   # ensure no-one modifies the driver 
version
+           foo_valid_attrs     => 1,   # do not permit to add more valid 
attributes ...
+           foo_readonly_attrs  => 1,   # ... or make the immutable mutable
+           foo_manager         => 1,   # manager is set internally only
        };
 
        return $dbh;
     }
 
-
 Woooho - but now the user cannot assign new managers? This is intended,
 overwrite C<STORE> to handle it!
 
@@ -195,6 +196,10 @@
 
 =head1 AUTHOR
 
+This guide is written by Jens Rehsack. DBI::DBD::SqlEngine is written by
+Jens Rehsack using code from DBD::File originally written by Jochen
+Wiedmann and Jeff Zucker.
+
 The module DBI::DBD::SqlEngine is currently maintained by
 
 H.Merijn Brand < h.m.brand at xs4all.nl > and