File Coverage

blib/lib/ACME/QuoteDB/DB/Quote.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             #$Id: Quote.pm,v 1.12 2009/09/30 07:37:09 dinosau2 Exp $
2             # /* vim:et: set ts=4 sw=4 sts=4 tw=78: */
3              
4             package ACME::QuoteDB::DB::Quote;
5 7     7   8469 use base 'ACME::QuoteDB::DB::DBI';
  7         12  
  7         599  
6              
7 7     7   136 use 5.008005; # require perl 5.8.5, re: DBD::SQLite Unicode
  7         23  
  7         270  
8 7     7   33 use warnings;
  7         42  
  7         187  
9 7     7   37 use strict;
  7         12  
  7         227  
10              
11             #use criticism 'brutal'; # use critic with a ~/.perlcriticrc
12              
13 7     7   37 use version; our $VERSION = qv('0.1.0');
  7         39  
  7         46  
14             ACME::QuoteDB::DB::Quote->table('quote');
15              
16             ACME::QuoteDB::DB::Quote->columns(
17             All => qw/quot_id attr_id quote source rating/
18             );
19              
20             1;
21              
22             __END__