ACME-QuoteDB
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
EOF
my $builder = $class->new(
module_name => 'ACME::QuoteDB',
license => 'perl',
dist_author => 'David Wright <david_v_wright@yahoo.com>',
dist_version_from => 'lib/ACME/QuoteDB.pm',
build_requires => {
#'Module::Build' => '0.33',
'Module::Build' => '0.280801',
'Test::More' => 0.8,
'Readonly' => 1.03,
'Data::Dumper' => 2.121,
'Carp' => 1.04,
#'criticism' => 1.02,
'version' => 0.70,
'aliased' => 0.22,
'File::Basename' => 2.74,
'DBD::SQLite' => 1.14,
'Class::DBI' => '3.0.17',
'HTML::TokeParser' => 2.37,
'Text::CSV' => 1.06, #1.10, # 1.13
'Cwd' => 3.25, #3.29
'File::Spec' => 3.2501, #3.29
'File::Copy' => 2.11,
#'Test::Pod' => 1.22
#'Test::Pod::Coverage' => 1.08
},
add_to_cleanup => [ 'ACME-QuoteDB-*' ],
# can't install quotes.db with nec's perms with ExtUtils::MakeMaker
# (well, or can, but too hard figure out at the moment)
#create_makefile_pl => 'traditional',
create_makefile_pl => 'passthrough',
db_files => {'lib/ACME/QuoteDB/DB/quotedb/quotes.db' =>
'lib/ACME/QuoteDB/DB/quotedb/quotes.db'},
);
Class::DBI: 3.0.17
Cwd: 3.25
DBD::SQLite: 1.14
Data::Dumper: 2.121
File::Basename: 2.74
File::Copy: 2.11
File::Spec: 3.2501
HTML::TokeParser: 2.37
Module::Build: 0.280801
Readonly: 1.03
Test::More: 0.8
Text::CSV: 1.06
aliased: 0.22
version: 0.7
provides:
ACME::QuoteDB:
file: lib/ACME/QuoteDB.pm
version: 0.1.2
ACME::QuoteDB::DB::Attribution:
file: lib/ACME/QuoteDB/DB/Attribution.pm
version: 0.1.0
lib/ACME/QuoteDB.pm view on Meta::CPAN
L<Carp>
L<Data::Dumper>
L<criticism> (pragma - enforce Perl::Critic if installed)
L<version>(pragma - version numbers)
L<aliased>
L<Test::More>
L<DBD::SQLite>
L<DBI>
L<Class::DBI>
L<File::Basename>
L<Readonly>
t/01-load_quotes.t view on Meta::CPAN
use Carp qw/croak/;
BEGIN {
eval "use DBD::SQLite";
$@ and croak 'DBD::SQLite is a required dependancy';
}
use ACME::QuoteDB;
use ACME::QuoteDB::LoadDB;
#use Test::More 'no_plan';
use Test::More tests => 29;
use File::Basename qw/dirname/;
use Data::Dumper qw/Dumper/;
use File::Spec;
# A. test dry run, show if parsing is succesful but don't load the database
{
my $q = File::Spec->catfile((dirname(__FILE__),'data'),
'simpsons_quotes.tsv.csv'
);
t/02-get_quotes.t view on Meta::CPAN
#!perl -T
use strict;
use warnings;
use ACME::QuoteDB;
use ACME::QuoteDB::LoadDB;
#use Test::More 'no_plan';
use Test::More tests => 33;
use File::Basename qw/dirname/;
use Data::Dumper qw/Dumper/;
use Carp qw/croak/;
use File::Spec;
BEGIN {
eval "use DBD::SQLite";
$@ and croak 'DBD::SQLite is a required dependancy';
}
t/03-load_quotes_env.t view on Meta::CPAN
$@ and croak 'DBD::SQLite is a required dependancy';
# give alternate path to the DB
$ENV{ACME_QUOTEDB_PATH} =
File::Temp->new( UNLINK => 0,
EXLOCK => 0,
SUFFIX => '.dat',
);
}
use Test::More tests => 9;
use File::Basename qw/dirname/;
use File::Spec;
use DBI;
use ACME::QuoteDB;
use ACME::QuoteDB::LoadDB;
{ # prove it's not using the provided db path
my $def_db = File::Spec->catfile( (dirname(__FILE__), '..', 'lib', 'ACME',
'QuoteDB', 'DB'), 'quotes.db'
);
t/04-get_quotes_more.t view on Meta::CPAN
# TODO more tests, make add_quote break!
# TODO see bottom of file for more todo's
use strict;
use warnings;
use ACME::QuoteDB;
use ACME::QuoteDB::LoadDB;
#use Test::More 'no_plan';
use Test::More tests => 24;
use File::Basename qw/dirname/;
use Data::Dumper qw/Dumper/;
use Carp qw/croak/;
use File::Spec;
use Readonly;
BEGIN {
eval "use DBD::SQLite";
$@ and croak 'DBD::SQLite is a required dependancy';
}
t/04-load_get_quote_utf8.t view on Meta::CPAN
use 5.008005; # require perl 5.8.5
# DBD::SQLite Unicode is not supported before 5.8.5
use strict;
use warnings;
use utf8; # yes this source code does contain utf8 characters
use ACME::QuoteDB;
use ACME::QuoteDB::LoadDB;
#use Test::More 'no_plan';
use Test::More tests => 8;
use File::Basename qw/dirname/;
use Data::Dumper qw/Dumper/;
use Carp qw/croak/;
use File::Temp;
use File::Spec;
BEGIN {
eval "use DBD::SQLite";
$@ and croak 'DBD::SQLite is a required dependancy';
t/05-load_quotes_remote.t view on Meta::CPAN
use strict;
use warnings;
#BEGIN {
# eval "use DBD::SQLite";
# plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 6);
#}
use Carp qw/croak/;
use Test::More;
#use Test::More tests => 9;
#use Test::More qw/no_plan/;
use File::Basename qw/dirname/;
use DBI;
use File::Temp;
use File::Spec;
BEGIN {
eval "use DBI";
$@ and plan skip_all => 'DBI/mysql is required for this test';
# have to set this to use remote database
t/boilerplate.t view on Meta::CPAN
#!perl -T
use strict;
use warnings;
use Test::More tests => 3;
use File::Basename qw/dirname/;
use File::Spec;
sub not_in_file_ok {
my ($filename, %regex) = @_;
my $file = File::Spec->catfile((dirname(__FILE__), '..'), $filename);
open( my $fh, '<', $file )
or die "couldn't open $file for reading: $!";
my %violated;
t/pod-coverage.t view on Meta::CPAN
use strict;
use warnings;
use Test::More;
# Ensure a recent version of Test::Pod::Coverage
my $min_tpc = 1.08;
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
if $@;
# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
if $@;
all_pod_coverage_ok();
#!perl -T
use strict;
use warnings;
use Test::More;
# Ensure a recent version of Test::Pod
my $min_tp = 1.22;
eval "use Test::Pod $min_tp";
plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
all_pod_files_ok();
view release on metacpan - search on metacpan
( run in 0.806 second using v1.00-cache-2.02-grep-82fe00e-cpan-585fae043c8 )