4 my $build = Module::Build->new

     4 

     5 my $builder = Module::Build->subclass(

     6     class => 'My::Module::Build',

     7     code => <<'___CODE',

     8     use strict;

     9     use warnings;

    10     use File::Temp;

    11     sub ACTION_equivs {

    12         my $self = shift;

    13         my %provides = (

    14             'POSIX' => 'perl-base',

    15             'File::Path' => 'perl-modules',

    16         );

    17         my %deps = ( ( map { (my $d = $_ ) =~ s/::/-/g;

    18              defined $provides{$_} ? $provides{$_} : 'lib' . lc $d . '-perl'

    19                => $self->requires->{$_} == 0 ? '' : ' (>= ' . $self->requires->{$_} . ')' 

    20              } keys %{$self->requires} ),

    21          'at' => ''

    22         );

    23         my $c = new File::Temp or die "Can't tempfile";

    24         print $c "Package: libius-dav-htpasswd-perl-deps\n";

    25         print $c 'Depends: ', join ', ', map { "$_$deps{$_}" } keys %deps;

    26         system('equivs-build', $c->filename);

    27     }

    28 ___CODE

    29 );

    30 

    31 my $build = $builder->new