From: Michael G Schwern <mschwern@cpan.org>
Date: Fri, 31 Aug 2007 06:39:19 +0000 (-0700)
Subject: Add POD to new CDBICompat modules so they pass POD coverage.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d03c070640a8a9a187ba4fa21d645287029abfca;p=dbsrgits%2FDBIx-Class-Historic.git

Add POD to new CDBICompat modules so they pass POD coverage.
---

diff --git a/lib/DBIx/Class/CDBICompat/AbstractSearch.pm b/lib/DBIx/Class/CDBICompat/AbstractSearch.pm
index f5c8751..948dcd9 100644
--- a/lib/DBIx/Class/CDBICompat/AbstractSearch.pm
+++ b/lib/DBIx/Class/CDBICompat/AbstractSearch.pm
@@ -4,6 +4,20 @@ package # hide form PAUSE
 use strict;
 use warnings;
 
+=head1 NAME
+
+DBIx::Class::CDBICompat::AbstractSearch
+
+=head1 SYNOPSIS
+
+See DBIx::Class::CDBICompat for directions for use.
+
+=head1 DESCRIPTION
+
+Emulates L<Class::DBI::AbstractSearch>.
+
+=cut
+
 # The keys are mostly the same.
 my %cdbi2dbix = (
     limit               => 'rows',
diff --git a/lib/DBIx/Class/CDBICompat/Copy.pm b/lib/DBIx/Class/CDBICompat/Copy.pm
index b11eca8..414cbd6 100644
--- a/lib/DBIx/Class/CDBICompat/Copy.pm
+++ b/lib/DBIx/Class/CDBICompat/Copy.pm
@@ -6,6 +6,21 @@ use warnings;
 
 use Carp;
 
+=head1 NAME
+
+DBIx::Class::CDBICompat::Copy
+
+=head1 SYNOPSIS
+
+See DBIx::Class::CDBICompat for directions for use.
+
+=head1 DESCRIPTION
+
+Emulates C<<Class::DBI->copy($new_id)>>.
+
+=cut
+
+
 # CDBI's copy will take an id in addition to a hash ref.
 sub copy {
     my($self, $arg) = @_;
diff --git a/lib/DBIx/Class/CDBICompat/Iterator.pm b/lib/DBIx/Class/CDBICompat/Iterator.pm
index d50dd32..1b96835 100644
--- a/lib/DBIx/Class/CDBICompat/Iterator.pm
+++ b/lib/DBIx/Class/CDBICompat/Iterator.pm
@@ -3,6 +3,25 @@ package DBIx::Class::CDBICompat::Iterator;
 use strict;
 use warnings;
 
+=head1 NAME
+
+DBIx::Class::CDBICompat::Iterator
+
+=head1 SYNOPSIS
+
+See DBIx::Class::CDBICompat for directions for use.
+
+=head1 DESCRIPTION
+
+Emulates the extra behaviors of the Class::DBI search iterator.
+
+=head2 Differences from DBIx::Class result set
+
+The CDBI iterator returns true if there were any results, false otherwise.  The DBIC result set always returns true.
+
+=cut
+
+
 sub _init_result_source_instance {
   my $class = shift;
   
diff --git a/t/03podcoverage.t b/t/03podcoverage.t
index 8f2c0d6..b9831ce 100644
--- a/t/03podcoverage.t
+++ b/t/03podcoverage.t
@@ -32,12 +32,18 @@ my $exceptions = {
         ]
     },
     'DBIx::Class::CDBICompat::AccessorMapping'          => { skip => 1 },
+    'DBIx::Class::CDBICompat::AbstractSearch' => {
+        ignore => [qw(search_where)]
+    },
     'DBIx::Class::CDBICompat::AttributeAPI'             => { skip => 1 },
     'DBIx::Class::CDBICompat::AutoUpdate'               => { skip => 1 },
     'DBIx::Class::CDBICompat::ColumnCase'               => { skip => 1 },
     'DBIx::Class::CDBICompat::ColumnGroups'             => { skip => 1 },
     'DBIx::Class::CDBICompat::Constraints'              => { skip => 1 },
     'DBIx::Class::CDBICompat::Constructor'              => { skip => 1 },
+    'DBIx::Class::CDBICompat::Copy' => {
+        ignore => [qw(copy)]
+    },
     'DBIx::Class::CDBICompat::DestroyWarning'           => { skip => 1 },
     'DBIx::Class::CDBICompat::GetSet'                   => { skip => 1 },
     'DBIx::Class::CDBICompat::HasA'                     => { skip => 1 },