File Coverage

blib/lib/CPAN/Index/Author.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 21 21 100.0


line stmt bran cond sub pod time code
1             package CPAN::Index::Author;
2              
3 5     5   3941 use strict;
  5         11  
  5         190  
4 5     5   28 use base 'DBIx::Class';
  5         8  
  5         425  
5 5     5   5564 use Email::Address ();
  5         181114  
  5         288  
6              
7 5     5   66 use vars qw{$VERSION};
  5         11  
  5         346  
8             BEGIN {
9 5     5   762 $VERSION = '0.01';
10             }
11              
12             __PACKAGE__->load_components('Core');
13              
14             __PACKAGE__->table('author');
15              
16             __PACKAGE__->add_columns(
17             id => {
18             data_type => 'varchar',
19             size => 16,
20             is_nullable => 0,
21             is_auto_increment => 0,
22             default_value => '',
23             },
24             name => {
25             data_type => 'varchar',
26             size => 255,
27             is_nullable => 0,
28             is_auto_increment => 0,
29             default_value => '',
30             },
31             email => {
32             data_type => 'varchar',
33             size => 255,
34             is_nullable => 0,
35             is_auto_increment => 0,
36             default_value => '',
37             },
38             );
39              
40             __PACKAGE__->set_primary_key('id');
41              
42             sub address {
43 1     1 1 62764 Email::Address->new( $_[0]->name => $_[0]->email );
44             }
45              
46             1;
47              
48             __END__