File Coverage

blib/lib/Giblog/Command/serve.pm
Criterion Covered Total %
statement 15 18 83.3
branch 0 2 0.0
condition n/a
subroutine 5 6 83.3
pod 1 1 100.0
total 21 27 77.7


line stmt bran cond sub pod time code
1             package Giblog::Command::serve;
2              
3 1     1   1288 use base 'Giblog::Command';
  1         3  
  1         187  
4              
5 1     1   7 use strict;
  1         2  
  1         21  
6 1     1   6 use warnings;
  1         12  
  1         34  
7 1     1   5 use Mojolicious;
  1         1  
  1         8  
8              
9 1     1   93 use Carp 'confess';
  1         2  
  1         110  
10              
11             sub run {
12 0     0 1   my ($self, @argv) = @_;
13            
14 0           my $command = 'morbo -w giblog.conf -w lib -w templates serve.pl';
15            
16 0 0         system($command) == 0
17             or confess "Can't serve serve.pl";
18             }
19              
20             1;
21              
22             =encoding utf8
23              
24             =head1 NAME
25              
26             Giblog::Command::serve - Website serve command
27              
28             =head1 DESCRIPTION
29              
30             L is website serve command.
31              
32             =head1 METHODS
33              
34             L inherits all methods from L and
35             implements the following new ones.
36              
37             =head2 run
38              
39             $command->run;
40              
41             Serve website starting up C using L command of L.
42              
43             Same as the following command.
44              
45             morbo -w giblog.conf -w lib -w templates serve.pl