From 6ab97143c851b15d950bb9f6358c9434e2d844a0 Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Mon, 21 Jul 2014 14:16:52 +0900
Subject: [PATCH] oops, overlooked unnecessary non-core deps

---
 lib/DBD/SQLite/VirtualTable/FileContent.pm | 8 ++++----
 t/virtual_table/00_base.t                  | 2 --
 t/virtual_table/02_find_function.t         | 2 --
 3 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/lib/DBD/SQLite/VirtualTable/FileContent.pm b/lib/DBD/SQLite/VirtualTable/FileContent.pm
index 113e6f3..0fe8535 100644
--- a/lib/DBD/SQLite/VirtualTable/FileContent.pm
+++ b/lib/DBD/SQLite/VirtualTable/FileContent.pm
@@ -4,7 +4,6 @@ package DBD::SQLite::VirtualTable::FileContent;
 use strict;
 use warnings;
 use base 'DBD::SQLite::VirtualTable';
-use List::MoreUtils qw/none/;
 
 my %option_ok = map {($_ => 1)} qw/source content_col path_col
                                    expose root get_content/;
@@ -65,9 +64,10 @@ sub NEW {
     my @bad_cols  = grep { !$src_col{$_} } @exposed_cols;
     die "table $src_table has no column named @bad_cols" if @bad_cols;
   }
-  none {$_ eq $self->{options}{content_col}} @exposed_cols
-    or die "$class: $self->{options}{content_col} cannot be both the "
-         . "content_col and an exposed col";
+  for (@exposed_cols) {
+    die "$class: $self->{options}{content_col} cannot be both the "
+      . "content_col and an exposed col" if $_ eq $self->{options}{content_col};
+  }
 
   # build the list of columns for this table
   $self->{columns} = [ "$self->{options}{content_col} TEXT",
diff --git a/t/virtual_table/00_base.t b/t/virtual_table/00_base.t
index 1865c11..66d7a67 100644
--- a/t/virtual_table/00_base.t
+++ b/t/virtual_table/00_base.t
@@ -41,7 +41,6 @@ package DBD::SQLite::VirtualTable::T;
 use strict;
 use warnings;
 use base 'DBD::SQLite::VirtualTable';
-use YAML;
 
 sub NEW {
   my $class = shift;
@@ -89,7 +88,6 @@ package DBD::SQLite::VirtualTable::T::Cursor;
 use strict;
 use warnings;
 use base 'DBD::SQLite::VirtualTable::Cursor';
-use YAML;
 
 sub NEW {
   my $class = shift;
diff --git a/t/virtual_table/02_find_function.t b/t/virtual_table/02_find_function.t
index b7e49d4..94dfede 100644
--- a/t/virtual_table/02_find_function.t
+++ b/t/virtual_table/02_find_function.t
@@ -82,7 +82,6 @@ package DBD::SQLite::VirtualTable::T;
 use strict;
 use warnings;
 use base 'DBD::SQLite::VirtualTable';
-use YAML;
 
 
 
@@ -123,7 +122,6 @@ package DBD::SQLite::VirtualTable::T::Cursor;
 use strict;
 use warnings;
 use base 'DBD::SQLite::VirtualTable::Cursor';
-use YAML;
 
 sub NEW {
   my $class = shift;