File Coverage

blib/lib/MojoMojo/Schema/Result/Entry.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package MojoMojo::Schema::Result::Entry;
2              
3 40     40   27162 use strict;
  40         105  
  40         1136  
4 40     40   478 use warnings;
  40         94  
  40         1066  
5              
6 40     40   206 use parent qw/MojoMojo::Schema::Base::Result/;
  40         260  
  40         241  
7              
8             __PACKAGE__->load_components( "Core" );
9             __PACKAGE__->table("entry");
10             __PACKAGE__->add_columns(
11             "id",
12             { data_type => "INTEGER", is_nullable => 0, size => undef, is_auto_increment => 1 },
13             "journal",
14             { data_type => "INTEGER", is_nullable => 0, size => undef },
15             "author",
16             { data_type => "INTEGER", is_nullable => 0, size => undef },
17             "title",
18             { data_type => "VARCHAR", is_nullable => 0, size => 150 },
19             "content",
20             { data_type => "TEXT", is_nullable => 0, size => undef },
21             "posted",
22             { data_type => "VARCHAR", is_nullable => 0, size => 100 },
23             "location",
24             { data_type => "VARCHAR", is_nullable => 0, size => 100 },
25             );
26             __PACKAGE__->set_primary_key("id");
27             __PACKAGE__->belongs_to( "journal", "MojoMojo::Schema::Result::Journal", { pageid => "journal" } );
28             __PACKAGE__->belongs_to( "author", "MojoMojo::Schema::Result::Person", { id => "author" } );
29              
30             =head1 NAME
31              
32             MojoMojo::Schema::Result::Entry - store journal entries
33              
34             =head1 AUTHOR
35              
36             Marcus Ramberg <mramberg@cpan.org>
37              
38             =head1 LICENSE
39              
40             This library is free software. You can redistribute it and/or modify
41             it under the same terms as Perl itself.
42              
43             =cut
44              
45             1;