File Coverage

blib/lib/vFeed/Log.pm

Criterion	Covered	Total	%
statement	9	34	26.4
branch	0	6	0.0
condition			n/a
subroutine	3	10	30.0
pod	7	7	100.0
total	19	57	33.3

#
# $Id: Log.pm 3 2014-04-08 11:43:16Z gomor $
#
package vFeed::Log;
use strict;
use warnings;

use base qw(Class::Gomor::Array);
our @AS = qw(
   level
);
__PACKAGE__->cgBuildIndices;
__PACKAGE__->cgBuildAccessorsScalar(\@AS);

sub new {
   my $self = shift->SUPER::new(
      level => 0,
      @_,
   );

   return $self;
}

sub warning {
   my $self = shift;
   my ($msg) = @_;
   print("[!] $msg\n");
}

sub error {
   my $self = shift;
   my ($msg) = @_;
   print("[-] $msg\n");
}

sub fatal {
   my $self = shift;
   my ($msg) = @_;
   my ($package) = caller();
   die("[-] FATAL: $package: $msg\n");
}

sub info {
   my $self = shift;
   my ($msg) = @_;
   return unless $self->level > 0;
   print("[+] $msg\n");
}

sub verbose {
   my $self = shift;
   my ($msg) = @_;
   return unless $self->level > 1;
   print("[*] $msg\n");
}

sub debug {
   my $self = shift;
   my ($msg) = @_;
   return unless $self->level > 2;
   my ($package) = caller();
   print("[DEBUG] $package: $msg\n");
}

1;

__END__