From 1fb221b335653617ef2a8d5c145ff027a6b65f52 Mon Sep 17 00:00:00 2001
From: aereal <aereal@aereal.org>
Date: Mon, 26 Jan 2015 19:30:23 +0900
Subject: [PATCH] Rename row_class_prefix -> default_row_class_prefix

---
 lib/Teng/Schema/Declare.pm         | 12 ++++++------
 t/001_basic/017_row_class_prefix.t |  2 +-
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/lib/Teng/Schema/Declare.pm b/lib/Teng/Schema/Declare.pm
index 4835cde..f9462f0 100644
--- a/lib/Teng/Schema/Declare.pm
+++ b/lib/Teng/Schema/Declare.pm
@@ -15,7 +15,7 @@ our @EXPORT = qw(
     base_row_class
     inflate
     deflate
-    row_class_prefix
+    default_row_class_prefix
 );
 our $CURRENT_SCHEMA_CLASS;
 
@@ -31,14 +31,14 @@ sub base_row_class($) {
     $current->{__base_row_class} = $_[0];
 }
 
-sub row_class_prefix ($) {
-    _current_schema()->{__row_class_prefix} = $_[0];
+sub default_row_class_prefix ($) {
+    _current_schema()->{__default_row_class_prefix} = $_[0];
 }
 
 sub row_namespace ($) {
     my $table_name = shift;
 
-    my $prefix = defined(_current_schema()->{__row_class_prefix}) ? _current_schema()->{__row_class_prefix} : do {
+    my $prefix = defined(_current_schema()->{__default_row_class_prefix}) ? _current_schema()->{__default_row_class_prefix} : do {
         (my $caller = caller(1)) =~ s/::Schema$//;
         join '::', $caller, 'Row';
     };
@@ -223,9 +223,9 @@ Default value is L<Teng::Row>.
 
 This option is useful when you adds features for My::DB::Row class.
 
-=item C<row_class_prefix>
+=item C<default_row_class_prefix>
 
-Specify the prefix of row class.
+Specify the default prefix of row class.
 
 Default value is determined by the schema class.
 
diff --git a/t/001_basic/017_row_class_prefix.t b/t/001_basic/017_row_class_prefix.t
index 8798cdb..4007228 100644
--- a/t/001_basic/017_row_class_prefix.t
+++ b/t/001_basic/017_row_class_prefix.t
@@ -4,7 +4,7 @@ use Teng::Schema::Declare;
 
 subtest 'with prefix' => sub {
     my $schema = schema {
-        row_class_prefix 'My::Entity';
+        default_row_class_prefix 'My::Entity';
         table {
             name 'body';
             columns qw(id);