File Coverage

blib/lib/ACME/QuoteDB/DB/Attribution.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: Attribution.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::Attribution;
5 7     7   5052 use base 'ACME::QuoteDB::DB::DBI';
  7         25  
  7         4531  
6              
7 7     7   164 use 5.008005; # require perl 5.8.5, re: DBD::SQLite Unicode
  7         23  
  7         333  
8 7     7   45 use warnings;
  7         15  
  7         224  
9 7     7   38 use strict;
  7         14  
  7         234  
10              
11             #use criticism 'brutal'; # use critic with a ~/.perlcriticrc
12              
13 7     7   37 use version; our $VERSION = qv('0.1.0');
  7         14  
  7         127  
14              
15             ACME::QuoteDB::DB::Attribution->table('attribution');
16             ACME::QuoteDB::DB::Attribution->columns(All => qw/attr_id name/);
17             ACME::QuoteDB::DB::Attribution->has_many(quote => 'ACME::QuoteDB::DB::Quote');
18              
19             1;
20             __END__