File Coverage

blib/lib/Module/Build/Debian.pm

Criterion	Covered	Total	%
statement	28	55	50.9
branch	0	10	0.0
condition	0	15	0.0
subroutine	8	11	72.7
pod	2	2	100.0
total	38	93	40.8

# $Id: Dot.pm 6 2007-09-13 10:22:19Z asksol $
# $Source: /opt/CVS/Getopt-LL/inc/Module/Build/Getopt/LL.pm,v $
# $Author: asksol $
# $HeadURL: https://class-dot.googlecode.com/svn/class-dot/inc/Module/Build/Class/Dot.pm $
# $Revision: 6 $
# $Date: 2007-09-13 12:22:19 +0200 (Thu, 13 Sep 2007) $
package Module::Build::Debian;

use strict;
use warnings;
use version; our $VERSION = qv('1.0.0');

use Carp        qw(croak);
use FindBin     qw($Bin);
use English     qw( -no_match_vars );

my $DEFAULT_DH_MAKE_PERL = '/usr/bin/dh-make-perl';

my @CLEAN_FILES = qw(
    build-stamp
    install-stamp
    debian
);

my %EXPORT   = (
    ACTION_debian       => \&ACTION_debian,
    ACTION_debianclean  => \&ACTION_debianclean,
);

sub import {
    my $this_class = shift;
    my $call_class = caller;

    while (my ($method_name, $coderef) = each %EXPORT) {
        no strict 'refs'; ## no critic
        my $fqdn   = join q{::}, $call_class, $method_name;
        *{ $fqdn } = $coderef;
    }

    return;
}

sub _set_debauthor {
    my ($self) = @_;

    # Set author name and email for the debian package.
    my $author_name;
    my $author_mail;
    my $dist_author = $self->dist_author->[0];
    if ($dist_author =~ m/ \s*(.+?)\s*    < (.+?) >/xms) {
        $author_name = defined $1   ? $1 : $dist_author;
        $author_mail = defined $2   ? $2 : q{};
    }
    $ENV{DEBFULLNAME} ||= $author_name;
    $ENV{DEBEMAIL}    ||= $author_mail;

    return;
}

sub ACTION_debian  {
    my $self = shift;

    CLEANFILE:
    for my $file (@CLEAN_FILES) {
        if (-f $file || -d _) {
            $self->ACTION_debianclean();
            last CLEANFILE;
        }
    }

    my $dh_make_perl = $self->notes('dh_make_perl') || $DEFAULT_DH_MAKE_PERL;

    if (! -f $dh_make_perl && -x _) {
        croak "Can't find dh-make-perl ($dh_make_perl): $OS_ERROR. " .
              "Please configure the 'dh_make_perl' option\n";
    }

    # Create the shell command for dh-make-perl.
    my @cmd = ($dh_make_perl, '--build', $Bin);
    my $cmd_string = join q{ }, @cmd;

    _set_debauthor($self);

    $self->log_info(">>> Creating debian package with dh-make-perl [$cmd_string]\n");

    system @cmd;

    return;
}

sub ACTION_debianclean {
    my $self = shift;

    for my $file (@CLEAN_FILES) {
        $self->delete_filetree($file);
    }

    return;
}


1;

__END__