Commit | Line | Data |
---|---|---|
55046410 | 1 | package TestLogger; |
2 | use strict; | |
3 | use warnings; | |
4 | ||
5 | our @LOGS; | |
c13f6e7e | 6 | our @ILOGS; |
55046410 | 7 | our @ELOGS; |
8 | ||
9 | sub new { | |
10 | return bless {}, __PACKAGE__; | |
11 | } | |
12 | ||
13 | sub debug { | |
14 | shift; | |
15 | push(@LOGS, shift()); | |
16 | } | |
17 | ||
c13f6e7e | 18 | sub info { |
19 | shift; | |
20 | push(@ILOGS, shift()); | |
21 | } | |
22 | ||
55046410 | 23 | sub warn { |
24 | shift; | |
25 | push(@ELOGS, shift()); | |
26 | } | |
27 | ||
9c38cb50 | 28 | sub error { die "Got unexpected error; $_[1]" } |
55046410 | 29 | 1; |
30 |