t/lib/VarLogger.pm

   1 package VarLogger;
   2
   3 sub new { bless { var => undef }, __PACKAGE__ }
   4 sub var { $_[0]->{var} }
   5
   6 sub debug { $_[0]->{var} = "d$_[1]" }
   7 sub is_debug { 1 }
   8
   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
  24 1;