add base row case.

base_row_class/demo.pl

@@ -0,0 +1,26 @@
+#! /usr/local/bin/perl
+use strict;
+use warnings;
+use lib qw(./lib);
+use Demo::DB;
+use Data::Dumper;
+
+my $db = Demo::DB->new;
+$db->connect({dsn => 'dbi:SQLite:./db/demo_user.db'});
+
+$db->delete('user');
+
+$db->bulk_insert('user',
+    [
+        { name => 'nekokak'  },
+        { name => 'kazuho'   },
+        { name => 'yappo'    },
+        { name => 'nekoya'   },
+        { name => 'oinume'   },
+    ]
+);
+
+my $itr = $db->search('user');
+
+my @json = map { $_->to_json } $itr->all;
+warn Dumper \@json;

base_row_class/lib/Demo/DB.pm

@@ -0,0 +1,13 @@
+package Demo::DB;
+use DBIx::Skinny;
+
+package Demo::DB::Schema;
+use DBIx::Skinny::Schema;
+
+install_table user => schema {
+    pk 'id';
+    columns qw/id name/;
+};
+
+1;
+

base_row_class/lib/Demo/DB/Row.pm

@@ -0,0 +1,13 @@
+package Demo::DB::Row;
+use strict;
+use warnings;
+use base 'DBIx::Skinny::Row';
+use JSON::XS qw/encode_json/;
+
+sub to_json {
+    my $self = shift;
+    encode_json($self->get_columns);
+}
+
+1;
+

base_row_class/schema/demo.sql

@@ -0,0 +1,6 @@
+CREATE TABLE user (
+    id         INTEGER PRIMARY KEY AUTO_INCREMENT,
+    name       VARCHAR(255) NOT NULL,
+    UNIQUE(name)
+);
+