File Coverage

_build/lib/MyModuleBuilder.pm
Criterion Covered Total %
statement 6 15 40.0
branch 0 8 0.0
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 27 29.6


line stmt bran cond sub pod time code
1             package MyModuleBuilder;
2 1     1   18988 use Module::Build;
  1         224613  
  1         55  
3             @ISA = qw(Module::Build);
4              
5             sub ACTION_deb {
6 1     1   10 use strict;
  1         3  
  1         186  
7 0     0 0   my $self = shift;
8 0           $self->dispatch('distdir');
9 0           my $distdir = $self->dist_name .'-'. $self->dist_version;
10 0           my $lc_distdir = lc($distdir);
11              
12             # do_system echos
13 0 0         $self->do_system("rm","-rf", $lc_distdir) or die $!;
14 0 0         $self->do_system("mv", $distdir, $lc_distdir) or die $!;
15 0 0         $self->do_system("cp","-r", "debian", $lc_distdir) or die $!;
16 0           $self->add_to_cleanup($lc_distdir);
17              
18 0 0         $self->do_system("cd $lc_distdir && debuild -us -uc") or die $!;
19             }
20            
21             1;