File Coverage

blib/lib/Riji/Models.pm
Criterion Covered Total %
statement 21 23 91.3
branch 2 6 33.3
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 30 37 81.0


line stmt bran cond sub pod time code
1             package Riji::Models;
2 5     5   7782 use strict;
  5         12  
  5         168  
3 5     5   29 use warnings;
  5         11  
  5         207  
4              
5 5     5   43 use URI;
  5         10  
  5         176  
6              
7 5     5   3101 use Object::Container -base;
  5         76063  
  5         25  
8              
9             sub register_blog {
10             register Blog => sub {
11 1     1   263 my $self = shift;
12 1         15 my $conf = $self->get('config');
13             my $site_url = sub {
14 1 50       34 return URI->new($conf->{site_url}) if $conf->{site_url};
15              
16 0         0 require Riji;
17 0 0       0 Riji->context ? Riji->context->req->base : URI->new('http://unknown.example.com/');
18 1         80 }->();
19              
20             $self->ensure_class_loaded('Riji::Model::Blog')->new(
21             base_dir => $self->get('base_dir'),
22             site_url => $site_url,
23             author => $conf->{author},
24             title => $conf->{title},
25 1 50       8122 ($conf->{branch} ? (branch => $conf->{branch}) : ()),
26             );
27 5     5 0 32 };
28             }
29             register_blog;
30              
31 5     5   1681 no Object::Container;
  5         33  
  5         36  
32             1;