File Coverage

blib/lib/ACME/QuoteDB/DB/QuoteCatg.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: QuoteCatg.pm,v 1.4 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::QuoteCatg;
5 7     7   4688 use base 'ACME::QuoteDB::DB::DBI';
  7         18  
  7         690  
6              
7 7     7   177 use 5.008005; # require perl 5.8.5, re: DBD::SQLite Unicode
  7         25  
  7         272  
8 7     7   50 use warnings;
  7         17  
  7         310  
9 7     7   45 use strict;
  7         25  
  7         227  
10              
11             #use criticism 'brutal'; # use critic with a ~/.perlcriticrc
12              
13 7     7   41 use version; our $VERSION = qv('0.1.0');
  7         12  
  7         44  
14             ACME::QuoteDB::DB::QuoteCatg->table('quote_catg');
15             ACME::QuoteDB::DB::QuoteCatg->columns(All => qw/id catg_id quot_id/);
16             #ACME::QuoteDB::DB::QuoteCatg->has_many(quote => 'ACME::QuoteDB::DB::Quote');
17              
18             1;
19              
20             __END__