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; |