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   18 use strict;
  3         6  
  3         84  
4 3     3   14 use warnings;
  3         4  
  3         63  
5 3     3   12 use Alien::Build::Plugin;
  3         6  
  3         27  
6              
7             sub init
8             {
9 4     4 1 18 my($self,$meta) = @_;
10              
11 4         1415 require Alien::Build::Plugin::Download::Negotiate;
12 4         1313 require Alien::Build::Plugin::Extract::ArchiveTar;
13              
14 4         33 Alien::Build::Plugin::Download::Negotiate->new(url => 'corpus/dist/foo-1.00.tar')->init($meta);
15 4         69 Alien::Build::Plugin::Extract::ArchiveTar->new->init($meta);
16              
17 4     4   32 $meta->register_hook(probe => sub { 'share' });
  4         13  
18             }
19              
20             1;