Alien-Judy

 view release on metacpan or  search on metacpan

inc/My/Judy/Builder.pm  view on Meta::CPAN

        join ' ',
        map { "--$_=$args{$_}" }
        sort
        keys %args;
}

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

    if ( $self->notes('build_judy') =~ /^y/i ) {
        $self->SUPER::ACTION_code();

        _chdir_to_judy();
        
        $self->_run(MAKE())
            or do {
                warn "building Judy failed";
                _chdir_back();
                return 0;
            };

inc/My/Judy/Builder.pm  view on Meta::CPAN

        );
        for my $file ( @files ) {
            File::Copy::copy( $file, $alien );
        }

        _chdir_back();

        return 1;
    }
    else {
	return $self->SUPER::ACTION_code();
    }
}


sub ACTION_test {
    my ($self) = @_;
    
    if ( $self->notes('build_judy') =~ /^y/i ) {
        $self->SUPER::ACTION_test();
    
        _chdir_to_judy();
        
        $self->_run( MAKE(), 'check' )
            or do {
                warn "checking Judy failed ";
                _chdir_back();
                return 0;
            };
        
        _chdir_back();

        return 1;
    }
    else {
        return $self->SUPER::ACTION_test();
    }
}

sub ACTION_install {
    my ($self) = @_;
    
    if ( $self->notes('build_judy') =~ /^y/i ) {
        $self->SUPER::ACTION_install();

        _chdir_to_judy();
        
        $self->_run( MAKE(), 'install' )
            or do {
                warn "installing Judy failed ";
                _chdir_back();
                return 0;
            };
        
        _chdir_back();

        return 1;
    }
    else {
        return $self->SUPER::ACTION_install();
    }
}

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

    $self->SUPER::ACTION_clean();

    print STDERR <<'ACTION_clean';
This may fail. Sorry. It's just the libJudy library. It can provide a Makefile
without being able to use it for `make clean'.
ACTION_clean

    my $ok = eval {
        _chdir_to_judy();
        $self->_run(  MAKE(), 'clean' );
        1;

inc/My/Judy/Builder.pm  view on Meta::CPAN

    if ( ! $ok ) {
        print STDERR $failure_msg;
    }

    return;
}

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

    $self->SUPER::ACTION_clean();

    print STDERR <<'ACTION_realclean';
This may fail. Sorry. It's just the libJudy library. It can provide a Makefile
without being able to use it for `make clean'.
ACTION_realclean

    my $ok = eval {
        _chdir_to_judy();
        $self->_run(  MAKE(), 'distclean' );
        1;

inc/My/Judy/Builder.pm  view on Meta::CPAN

    if ( ! $ok ) {
        print STDERR $failure_msg;
    }

    return;
}

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

    $self->SUPER::ACTION_clean();

    print STDERR <<'ACTION_distclean';
This may fail. Sorry. It's just the libJudy library. It can provide a Makefile
without being able to use it for `make clean'.
ACTION_distclean

    my $ok = eval {
        _chdir_to_judy();
        $self->_run(  MAKE(), 'distclean' );
        1;