File Coverage

corpus/lib/Alien/Build/Plugin/Download/Foo.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::Plugin::Download::Foo;
2              
3 3     3   29 use strict;
  3         6  
  3         131  
4 3     3   23 use warnings;
  3         7  
  3         90  
5 3     3   22 use Alien::Build::Plugin;
  3         7  
  3         32  
6              
7             sub init
8             {
9 4     4 1 12 my($self,$meta) = @_;
10              
11 4         1674 require Alien::Build::Plugin::Download::Negotiate;
12 4         1585 require Alien::Build::Plugin::Extract::ArchiveTar;
13              
14 4         38 Alien::Build::Plugin::Download::Negotiate->new(url => 'corpus/dist/foo-1.00.tar')->init($meta);
15 4         58 Alien::Build::Plugin::Extract::ArchiveTar->new->init($meta);
16              
17 4     4   48 $meta->register_hook(probe => sub { 'share' });
  4         13  
18             }
19              
20             1;