File Coverage

blib/lib/Alien/Build/Log/Default.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 22 22 100.0


line stmt bran cond sub pod time code
1             package Alien::Build::Log::Default;
2              
3 32     32   183916 use strict;
  32         67  
  32         1084  
4 32     32   159 use warnings;
  32         96  
  32         950  
5 32     32   641 use 5.008004;
  32         448  
6 32     32   539 use parent qw( Alien::Build::Log );
  32         301  
  32         382  
7              
8             # ABSTRACT: Default Alien::Build log class
9             our $VERSION = '2.47'; # VERSION
10              
11              
12             sub log
13             {
14 406     406 1 1533 my(undef, %args) = @_;
15 406         791 my($message) = $args{message};
16 406         531 my ($package, $filename, $line) = @{ $args{caller} };
  406         803  
17 406         12991 print "$package> $message\n";
18             }
19              
20             1;
21              
22             __END__