Commit | Line | Data |
c19d7bee |
1 | package VarLogger; |
2 | |
3 | sub new { bless { var => undef }, __PACKAGE__ } |
c19d7bee |
4 | sub var { $_[0]->{var} } |
73c0f681 |
5 | |
6 | sub debug { $_[0]->{var} = "d$_[1]" } |
c19d7bee |
7 | sub is_debug { 1 } |
8 | |
73c0f681 |
9 | sub trace { $_[0]->{var} = "t$_[1]" } |
10 | sub is_trace { 1 } |
11 | |
12 | sub error { $_[0]->{var} = "e$_[1]" } |
13 | sub is_error { 1 } |
14 | |
15 | sub info { $_[0]->{var} = "i$_[1]" } |
16 | sub is_info { 1 } |
17 | |
18 | sub fatal { $_[0]->{var} = "f$_[1]" } |
19 | sub is_fatal { 1 } |
20 | |
21 | sub warn { $_[0]->{var} = "w$_[1]" } |
22 | sub is_warn { 1 } |
23 | |
c19d7bee |
24 | 1; |