ACME-QuoteDB

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

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

META.yml  view on Meta::CPAN

  - 'David Wright <david_v_wright@yahoo.com>'
abstract: 'API implements CRUD for a Collection of Quotes (adages/proverbs/sayings/epigrams, etc)'
license: perl
resources:
  license: http://dev.perl.org/licenses/
build_requires:
  Carp: 1.04
  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

lib/ACME/QuoteDB.pm  view on Meta::CPAN

#major-version.minor-revision.bugfix
use version; our $VERSION = qv('0.1.2');

#use criticism 'brutal'; # use critic with a ~/.perlcriticrc

use Exporter 'import';
our @EXPORT = qw/quote/; # support one liner

use Carp qw/croak/;
use Data::Dumper qw/Dumper/;
use ACME::QuoteDB::LoadDB;
use aliased 'ACME::QuoteDB::DB::Attribution' => 'Attr';
use aliased 'ACME::QuoteDB::DB::QuoteCatg'  => 'QuoteCatg';
use aliased 'ACME::QuoteDB::DB::Category'  => 'Catg';
use aliased 'ACME::QuoteDB::DB::Quote'    => 'Quote';

binmode STDOUT, ':encoding(utf8)';
binmode STDERR, ':encoding(utf8)';

sub new {

t/01-load_quotes.t  view on Meta::CPAN

    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'
          );

  # only 2 supported formats: 'simple' text (which is the default) and 'tsv' 
  my $load_db = ACME::QuoteDB::LoadDB->new({

t/02-get_quotes.t  view on Meta::CPAN

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';
}

#make test db writeable

t/04-get_quotes_more.t  view on Meta::CPAN

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 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';

    # give alternate path to the DB

 view all matches for this distribution
 view release on metacpan -  search on metacpan