@@ -1,3 +1,8 @@
+3.0.11 Oct 23 2005
+
+  * search through a has_many can now take hash_ref
+  * Fix documentation for SQL wildcards (RT#15145)
+
 3.0.10 Oct 7 2005
 
   * Set Storable::Deparse so that has_a subrefs can be cloned (Will Ross)

@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Class-DBI
-version:      v3.0.10
+version:      v3.0.11
 version_from: lib/Class/DBI.pm
 installdirs:  site
 requires:

@@ -385,8 +385,8 @@ RETRIEVING OBJECTS
 
     This is a simple search for all objects where the columns specified are
     like the values specified. $like_pattern is a pattern given in SQL LIKE
-    predicate syntax. '%' means "any one or more characters", '_' means "any
-    single character".
+    predicate syntax. '%' means "any zero or more characters", '_' means
+    "any single character".
 
       @cds = Music::CD->search_like(title => 'October%');
       @cds = Music::CD->search_like(title => 'Hits%', artist => 'Various%');
@@ -1692,7 +1692,7 @@ THANKS TO
 
 RELEASE PHILOSOPHY
     Class::DBI now uses a three-level versioning system. This release, for
-    example, is version 3.0.9
+    example, is version 3.0.11
 
     The general approach to releases will be that users who like a degree of
     stability can hold off on upgrades until the major sub-version increases

@@ -131,6 +131,7 @@ sub _hm_run_search {
 	my ($class, $accessor) = ($rel->class, $rel->accessor);
 	return sub {
 		my ($self, @search_args) = @_;
+		@search_args = %{ $search_args[0] } if ref $search_args[0] eq "HASH";
 		my $meta = $class->meta_info($rel->name => $accessor);
 		my ($f_class, $f_key, $args) =
 			($meta->foreign_class, $meta->args->{foreign_key}, $meta->args);

@@ -7,7 +7,7 @@ use base qw(Class::Accessor Class::Data::Inheritable Ima::DBI);
 
 package Class::DBI;
 
-use version; $VERSION = qv('3.0.10');
+use version; $VERSION = qv('3.0.11');
 
 use strict;
 use warnings;
@@ -1677,7 +1677,7 @@ as 'year DESC, title'.
 
 This is a simple search for all objects where the columns specified are
 like the values specified.  $like_pattern is a pattern given in SQL LIKE
-predicate syntax.  '%' means "any one or more characters", '_' means
+predicate syntax.  '%' means "any zero or more characters", '_' means
 "any single character". 
 
   @cds = Music::CD->search_like(title => 'October%');
@@ -3058,7 +3058,7 @@ and all the others who've helped, but that I've forgetten to mention.
 =head1 RELEASE PHILOSOPHY
 
 Class::DBI now uses a three-level versioning system. This release, for
-example, is version 3.0.10
+example, is version 3.0.11
 
 The general approach to releases will be that users who like a degree of
 stability can hold off on upgrades until the major sub-version increases

@@ -80,7 +80,7 @@ is $pvj->Name, "Peter Vere-Jones", "PVJ still ok";
 }
 
 eval {
-	my @actors = $btaste->actors(Name => $pj->Name);
+	my @actors = $btaste->actors({Name => $pj->Name});
 	is @actors, 1, "One actor from restricted (sorted) has_many";
 	is $actors[0]->Name, $pj->Name, "It's PJ";
 };

@@ -2,4 +2,5 @@ use Test::More;
 use strict;
 eval "use Test::Pod 1.00";
 plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+eval "use Test::Pod::Coverage 1.00";
 all_pod_files_ok();