[Bast-commits] r9695 - in SQL-Abstract/1.x/trunk: lib/DBIx/Class/Storage lib/SQL/Abstract t

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-09-07 02:07:06 +0100 (Tue, 07 Sep 2010)
New Revision: 9695

Modified:
   SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/PrettyPrinter.pm
   SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Tree.pm
   SQL-Abstract/1.x/trunk/t/91podcoverage.t
Log:
add some docs

Modified: SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/PrettyPrinter.pm
===================================================================
--- SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/PrettyPrinter.pm	2010-09-07 00:40:01 UTC (rev 9694)
+++ SQL-Abstract/1.x/trunk/lib/DBIx/Class/Storage/PrettyPrinter.pm	2010-09-07 01:07:06 UTC (rev 9695)
@@ -27,3 +27,28 @@
 }
 
 1;
+
+=pod
+
+=head1 SYNOPSIS
+
+ package MyApp::Schema;
+
+ use parent 'DBIx::Class::Schema';
+
+ use DBIx::Class::Storage::PrettyPrinter;
+
+ __PACKAGE__->load_namespaces;
+
+ my $pp = DBIx::Class::Storage::PrettyPrinter->new({ profile => 'console' });
+
+ sub connection {
+	my $self = shift;
+
+	my $ret = $self->next::method(@_);
+
+	$self->storage->debugobj($pp);
+
+	$ret
+ }
+

Modified: SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Tree.pm
===================================================================
--- SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Tree.pm	2010-09-07 00:40:01 UTC (rev 9694)
+++ SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Tree.pm	2010-09-07 01:07:06 UTC (rev 9695)
@@ -346,3 +346,14 @@
  #   FROM foo
  #   WHERE foo.a > 2
 
+=head1 METHODS
+
+=head2 new
+
+ my $sqla_tree = SQL::Abstract::Tree->new({ profile => 'console' });
+
+=head2 format
+
+ $sqlat->format('SELECT * FROM bar')
+
+Returns a formatting string based on wthe string passed in

Modified: SQL-Abstract/1.x/trunk/t/91podcoverage.t
===================================================================
--- SQL-Abstract/1.x/trunk/t/91podcoverage.t	2010-09-07 00:40:01 UTC (rev 9694)
+++ SQL-Abstract/1.x/trunk/t/91podcoverage.t	2010-09-07 01:07:06 UTC (rev 9695)
@@ -28,6 +28,8 @@
         ]
     },
     'SQL::Abstract::Test' => { skip => 1 },
+    'SQL::Abstract::Tree' => { skip => 1 },
+    'DBIx::Class::Storage::PrettyPrinter' => { skip => 1 },
 };
 
 foreach my $module (@modules) {