File Coverage

blib/lib/XAS/Apps/Test/Logger.pm
Criterion Covered Total %
statement 6 15 40.0
branch n/a
condition n/a
subroutine 2 4 50.0
pod 1 2 50.0
total 9 21 42.8


line stmt bran cond sub pod time code
1             package XAS::Apps::Test::Logger;
2              
3 1     1   879 use Try::Tiny;
  1         2  
  1         53  
4             use XAS::Class
5 1         5 debug => 0,
6             version => '0.02',
7             base => 'XAS::Lib::App',
8 1     1   4 ;
  1         1  
9              
10             #use Data::Dumper;
11              
12             # ----------------------------------------------------------------------
13             # Public Methods
14             # ----------------------------------------------------------------------
15              
16             sub setup {
17 0     0 0   my $self = shift;
18              
19             }
20              
21             sub main {
22 0     0 1   my $self = shift;
23              
24 0           $self->setup();
25              
26 0           $self->log->info('starting up');
27 0           $self->log->level('debug', 1);
28 0           $self->log->debug('heh debugging is working');
29 0           $self->log->trace('tracing is working');
30              
31 0           sleep(10);
32              
33 0           $self->log->info('shutting down');
34              
35             }
36              
37             # ----------------------------------------------------------------------
38             # Private Methods
39             # ----------------------------------------------------------------------
40              
41             1;
42              
43             __END__