blib/lib/Jaipo/Logger.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 10 | 14 | 71.4 |
branch | 0 | 2 | 0.0 |
condition | n/a | ||
subroutine | 3 | 5 | 60.0 |
pod | 0 | 3 | 0.0 |
total | 13 | 24 | 54.1 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package Jaipo::Logger; | ||||||
2 | 3 | 3 | 10 | use warnings; | |||
3 | 4 | ||||||
3 | 73 | ||||||
3 | 3 | 3 | 11 | use strict; | |||
3 | 4 | ||||||
3 | 300 | ||||||
4 | |||||||
5 | |||||||
6 | sub new { | ||||||
7 | 1 | 1 | 0 | 2 | my $class = shift; | ||
8 | |||||||
9 | 1 | 2 | my $self = {}; | ||||
10 | |||||||
11 | |||||||
12 | 1 | 2 | bless $self, $class; | ||||
13 | 1 | 5 | return $self; | ||||
14 | } | ||||||
15 | |||||||
16 | |||||||
17 | 0 | 0 | sub warn { | ||||
18 | |||||||
19 | |||||||
20 | } | ||||||
21 | |||||||
22 | sub info { | ||||||
23 | 0 | 0 | 0 | my $self = shift; | |||
24 | 0 | my $line = shift; | |||||
25 | 0 | my @args = @_; | |||||
26 | 0 | 0 | printf( $line . "\n" , @args ) if ( $line ); | ||||
27 | } | ||||||
28 | |||||||
29 | |||||||
30 | 1; |