File Coverage

blib/lib/meon/Web/SPc.pm
Criterion Covered Total %
statement 12 22 54.5
branch n/a
condition n/a
subroutine 4 14 28.5
pod 7 9 77.7
total 23 45 51.1


line stmt bran cond sub pod time code
1             package meon::Web::SPc;
2              
3             =head1 NAME
4              
5             meon::Web::SPc - build-time system path configuration
6              
7             =cut
8              
9 6     6   6707943 use warnings;
  6         23  
  6         384  
10 6     6   38 use strict;
  6         33  
  6         598  
11              
12             our $VERSION = '0.01';
13              
14 6     6   115 use File::Spec;
  6         15  
  6         157  
15              
16 0     0     sub _path_types {qw(
17             prefix
18             localstatedir
19             sysconfdir
20             datadir
21             cachedir
22             logdir
23             sharedstatedir
24             srvdir
25             )};
26              
27             =head1 PATHS
28              
29             =head2 sysconfdir
30              
31             =head2 datadir
32              
33             =head2 cachedir
34              
35             =head2 logdir
36              
37             =head2 sharedstatedir
38              
39             =head2 lockdir
40              
41             =head2 srvdir
42              
43             =cut
44              
45 6     6 0 4045 sub prefix { use Sys::Path; Sys::Path->find_distribution_root(__PACKAGE__); };
  6     0   223060  
  6         53  
  0            
46 0     0 0   sub localstatedir { File::Spec->catdir(__PACKAGE__->prefix, 'var') };
47              
48 0     0 1   sub sysconfdir { File::Spec->catdir(__PACKAGE__->prefix, 'etc') };
49 0     0 1   sub datadir { File::Spec->catdir(__PACKAGE__->prefix, 'share') };
50 0     0 1   sub cachedir { File::Spec->catdir(__PACKAGE__->localstatedir, 'cache') };
51 0     0 1   sub logdir { File::Spec->catdir(__PACKAGE__->localstatedir, 'log') };
52 0     0 1   sub sharedstatedir { File::Spec->catdir(__PACKAGE__->localstatedir, 'lib') };
53 0     0 1   sub lockdir { File::Spec->catdir(__PACKAGE__->localstatedir, 'lock') };
54 0     0 1   sub srvdir { File::Spec->catdir(__PACKAGE__->prefix, 'srv') };
55              
56             1;