File Coverage

script/text-mapper
Criterion Covered Total %
statement 7 7 100.0
branch 0 2 0.0
condition 1 7 14.2
subroutine 2 2 100.0
pod n/a
total 10 18 55.5


line stmt bran cond sub pod time code
1             #!/usr/bin/env perl
2             # Copyright (C) 2021 Alex Schroeder
3             #
4             # This program is free software: you can redistribute it and/or modify it under
5             # the terms of the GNU Affero General Public License as published by the Free
6             # Software Foundation, either version 3 of the License, or (at your option) any
7             # later version.
8             #
9             # This program is distributed in the hope that it will be useful, but WITHOUT
10             # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
11             # FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for more
12             # details.
13             #
14             # You should have received a copy of the GNU Affero General Public License along
15             # with this program. If not, see .
16              
17             =head1 NAME
18              
19             text-mapper - a web app to generate maps based on text files
20              
21             =head1 SYNOPSIS
22              
23             text-mapper daemon --listen "http://*:3010"
24              
25             =head1 DESCRIPTION
26              
27             This command starts a web server using Mojolicious.
28              
29             =head1 SEE ALSO
30              
31             For more information, see L.
32              
33             =head1 LICENSE
34              
35             GNU Affero General Public License
36              
37             =cut
38              
39 10     10   53447 use FindBin;
  10         14716  
  10         725  
40 10     10   4657 use lib "$FindBin::Bin/../lib";
  10         8890  
  10         106  
41 10 0 0     1880905 my $res = require Game::TextMapper
      0        
      33        
42             or not defined $res and die "Cannot load Game::TextMapper: $!"
43             or not $res and die "Game::TextMapper did not return a true value\n";