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   232621 use strict;
  32         74  
  32         1217  
4 32     32   218 use warnings;
  32         73  
  32         1092  
5 32     32   748 use 5.008004;
  32         129  
6 32     32   638 use parent qw( Alien::Build::Log );
  32         390  
  32         389  
7              
8             # ABSTRACT: Default Alien::Build log class
9             our $VERSION = '2.45'; # VERSION
10              
11              
12             sub log
13             {
14 406     406 1 1622 my(undef, %args) = @_;
15 406         859 my($message) = $args{message};
16 406         590 my ($package, $filename, $line) = @{ $args{caller} };
  406         889  
17 406         15379 print "$package> $message\n";
18             }
19              
20             1;
21              
22             __END__