simcop2387/DBD-SQLite-SQLcipher
1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 22:28:47 -04:00
Code Issues Releases Wiki Activity

oops, overlooked unnecessary non-core deps

Browse source
This commit is contained in:
Kenichi Ishigaki 2014-07-21 14:16:52 +09:00
parent 550849a2ab
commit 6ab97143c8
3 changed files with 4 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/DBD/SQLite/VirtualTable/FileContent.pm
View file

@ -4,7 +4,6 @@ package DBD::SQLite::VirtualTable::FileContent;
use strict; use strict;
use warnings; use warnings;
use base 'DBD::SQLite::VirtualTable'; use base 'DBD::SQLite::VirtualTable';
use List::MoreUtils qw/none/;
my %option_ok = map {($_ => 1)} qw/source content_col path_col my %option_ok = map {($_ => 1)} qw/source content_col path_col
expose root get_content/; expose root get_content/;
@ -65,9 +64,10 @@ sub NEW {
my @bad_cols = grep { !$src_col{$_} } @exposed_cols; my @bad_cols = grep { !$src_col{$_} } @exposed_cols;
die "table $src_table has no column named @bad_cols" if @bad_cols; die "table $src_table has no column named @bad_cols" if @bad_cols;
} }
none {$_ eq $self->{options}{content_col}} @exposed_cols for (@exposed_cols) {
or die "$class: $self->{options}{content_col} cannot be both the " die "$class: $self->{options}{content_col} cannot be both the "
. "content_col and an exposed col"; . "content_col and an exposed col" if $_ eq $self->{options}{content_col};
}
# build the list of columns for this table # build the list of columns for this table
$self->{columns} = [ "$self->{options}{content_col} TEXT", $self->{columns} = [ "$self->{options}{content_col} TEXT",

2
t/virtual_table/00_base.t
View file

@ -41,7 +41,6 @@ package DBD::SQLite::VirtualTable::T;
use strict; use strict;
use warnings; use warnings;
use base 'DBD::SQLite::VirtualTable'; use base 'DBD::SQLite::VirtualTable';
use YAML;
sub NEW { sub NEW {
my $class = shift; my $class = shift;
@ -89,7 +88,6 @@ package DBD::SQLite::VirtualTable::T::Cursor;
use strict; use strict;
use warnings; use warnings;
use base 'DBD::SQLite::VirtualTable::Cursor'; use base 'DBD::SQLite::VirtualTable::Cursor';
use YAML;
sub NEW { sub NEW {
my $class = shift; my $class = shift;

2
t/virtual_table/02_find_function.t
View file

@ -82,7 +82,6 @@ package DBD::SQLite::VirtualTable::T;
use strict; use strict;
use warnings; use warnings;
use base 'DBD::SQLite::VirtualTable'; use base 'DBD::SQLite::VirtualTable';
use YAML;
@ -123,7 +122,6 @@ package DBD::SQLite::VirtualTable::T::Cursor;
use strict; use strict;
use warnings; use warnings;
use base 'DBD::SQLite::VirtualTable::Cursor'; use base 'DBD::SQLite::VirtualTable::Cursor';
use YAML;
sub NEW { sub NEW {
my $class = shift; my $class = shift;