File Coverage

blib/lib/Labyrinth/Plugin/CPAN/Admin.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Labyrinth::Plugin::CPAN::Admin;
2              
3 2     2   4230 use strict;
  2         2  
  2         46  
4 2     2   5 use warnings;
  2         1  
  2         37  
5              
6 2     2   5 use vars qw($VERSION);
  2         2  
  2         92  
7             $VERSION = '0.15';
8              
9             =head1 NAME
10              
11             Labyrinth::Plugin::CPAN::Admin - Content Plugin for CPAN Testers Admin website.
12              
13             =cut
14              
15             #----------------------------------------------------------------------------
16             # Libraries
17              
18 2     2   8 use base qw(Labyrinth::Plugin::Base);
  2         3  
  2         594  
19              
20             use Labyrinth::DTUtils;
21             use Labyrinth::Variables;
22              
23             #----------------------------------------------------------------------------
24             # Variables
25              
26             #----------------------------------------------------------------------------
27             # Public Interface Functions
28              
29             #----------------------------------------------------------
30             # Content Management Subroutines
31              
32             =head1 CONTENT MANAGEMENT FUNCTIONS
33              
34             =over 4
35              
36             =item GetVersion
37              
38             Store the current application version in a template variable.
39              
40             =item ServerTime
41              
42             Retrieve the current date and time on the server.
43              
44             =back
45              
46             =cut
47              
48             sub GetVersion { $tvars{'version'} = $main::VERSION; $tvars{'labversion'} = $Labyrinth::VERSION; }
49             sub ServerTime { $tvars{'server'}{'date'} = formatDate(3); $tvars{'server'}{'time'} = formatDate(17); }
50              
51             1;
52              
53             __END__