File Coverage

blib/lib/Makefile/Update.pm

Criterion	Covered	Total	%
statement	26	37	70.2
branch	5	8	62.5
condition			n/a
subroutine	5	6	83.3
pod	2	2	100.0
total	38	53	71.7

package Makefile::Update;

# ABSTRACT: Update make files.

use strict;
use warnings;
use autodie;

use Exporter qw(import);

our @EXPORT = qw(read_files_list upmake);

our $VERSION = '0.2'; # VERSION



sub read_files_list
{
    my ($fh) = @_;

    my ($var, %vars);
    while (<$fh>) {
        chomp;
        s/#.*$//;
        s/^\s+//;
        s/\s+$//;
        next if !$_;

        if (/^(\w+)\s*=$/) {
            $var = $1;
        } else {
            die "Unexpected contents outside variable definition at line $.\n"
                unless defined $var;
            push @{$vars{$var}}, $_;
        }
    }

    return \%vars;
}


sub upmake
{
    my ($fname, $updater, @args) = @_;

    my $fname_new = "$fname.upmake.new"; # TODO make it more unique

    open my $in, '<', $fname;
    open my $out, '>', $fname_new;

    my $changed = $updater->($in, $out, @args);

    close $in;
    close $out;

    if ($changed) {
        rename $fname_new, $fname;
    } else {
        unlink $fname_new;
    }

    $changed
}

1;

__END__