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   252209 use strict;
  32         82  
  32         1262  
4 32     32   207 use warnings;
  32         97  
  32         1047  
5 32     32   757 use 5.008004;
  32         125  
6 32     32   685 use parent qw( Alien::Build::Log );
  32         413  
  32         398  
7              
8             # ABSTRACT: Default Alien::Build log class
9             our $VERSION = '2.46'; # VERSION
10              
11              
12             sub log
13             {
14 406     406 1 1700 my(undef, %args) = @_;
15 406         901 my($message) = $args{message};
16 406         620 my ($package, $filename, $line) = @{ $args{caller} };
  406         2282  
17 406         13388 print "$package> $message\n";
18             }
19              
20             1;
21              
22             __END__