File Coverage

blib/lib/MojoMojo/Schema/Result/Journal.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::Journal;
2              
3 40     40   26712 use strict;
  40         102  
  40         1057  
4 40     40   302 use warnings;
  40         89  
  40         1028  
5              
6 40     40   203 use parent qw/MojoMojo::Schema::Base::Result/;
  40         84  
  40         250  
7              
8             __PACKAGE__->load_components( "Core" );
9             __PACKAGE__->table("journal");
10             __PACKAGE__->add_columns(
11             "pageid",
12             { data_type => "INTEGER", is_nullable => 0, size => undef },
13             "name",
14             { data_type => "VARCHAR", is_nullable => 0, size => 100 },
15             "dateformat",
16             { data_type => "VARCHAR", is_nullable => 0, size => 20, default => "%F" },
17             "defaultlocation",
18             { data_type => "VARCHAR", is_nullable => 0, size => 100 },
19             );
20             __PACKAGE__->set_primary_key("pageid");
21             __PACKAGE__->has_many( "entries", "MojoMojo::Schema::Result::Entry", { "foreign.journal" => "self.pageid" } );
22             __PACKAGE__->belongs_to( "pageid", "MojoMojo::Schema::Result::Page", { id => "pageid" } );
23              
24             =head1 NAME
25              
26             MojoMojo::Schema::Result::Journal - store journals
27              
28             =head1 AUTHOR
29              
30             Marcus Ramberg <mramberg@cpan.org>
31              
32             =head1 LICENSE
33              
34             This library is free software. You can redistribute it and/or modify
35             it under the same terms as Perl itself.
36              
37             =cut
38              
39             1;