added dev comments about per-cursor wrapper

diff --git a/lib/DBIx/Class/RowCountStatistics.pm b/lib/DBIx/Class/RowCountStatistics.pm
index e72e94b..48ebc0a 100644 (file)
--- a/lib/DBIx/Class/RowCountStatistics.pm
+++ b/lib/DBIx/Class/RowCountStatistics.pm
@@ -12,7 +12,7 @@ our $VERSION = '0.000001'; # 0.0.1
 $VERSION = eval $VERSION;
 
 # Wrap the original ::Storage::DBI we received so we can extract data
-# from it's usage by the Cursor.
+# from it's usage by the Cursor. This wrapping is per-Cursor.
 around new => sub {
     my $orig = shift;
     my ($class, $storage, @rest) = @_;

diff --git a/lib/DBIx/Class/RowCountStatistics/Storage.pm b/lib/DBIx/Class/RowCountStatistics/Storage.pm
index a38fb9f..10f3c20 100644 (file)
--- a/lib/DBIx/Class/RowCountStatistics/Storage.pm
+++ b/lib/DBIx/Class/RowCountStatistics/Storage.pm
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 
+# per-Cursor wrapper object to cache and access SQL later
 package DBIx::Class::RowCountStatistics::Storage;
 use Class::Method::Modifiers;