File Coverage

blib/lib/Makefile/Update.pm

Criterion	Covered	Total	%
statement	70	76	92.1
branch	23	28	82.1
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	101	112	90.1

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.4'; # 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;
            if (/^\$(\w+)$/) {
                my $name = $1;
                die qq{Reference to undefined variable "$name" in the } .
                    qq{assignment to "$var" at line $.\n}
                    unless exists $vars{$name};
                my $value = $vars{$name};
                push @{$vars{$var}}, $_ for @$value;
            } else {
                push @{$vars{$var}}, $_;
            }
        }
    }

    return \%vars;
}


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

    my ($fname, $verbose, $quiet, $dryrun);
    if (ref $file_or_options eq 'HASH') {
        $fname = $file_or_options->{file};
        $verbose = $file_or_options->{verbose};
        $quiet = $file_or_options->{quiet};
        $dryrun = $file_or_options->{dryrun};
    } else {
        $fname = $file_or_options;
        $verbose =
        $quiet =
        $dryrun = 0;
    }

    if ($dryrun) {
        my $old = do {
            local $/;
            open my $f, '<', $fname;
            <$f>
        };
        my $new = '';

        open my $in, '<', \$old;
        open my $out, '>', \$new;

        if ($updater->($in, $out, @args)) {
            print qq{Would update "$fname"};

            if ($verbose) {
                if (eval { require Text::Diff; }) {
                    print " with the following changes:\n";

                    print Text::Diff::diff(\$old, \$new, {
                                FILENAME_A => $fname,
                                FILENAME_B => "$fname.new"
                            });
                } else {
                    print ".\n";

                    warn qq{Can't display diff of the changes, please install Text::Diff module.\n};
                }
            } else {
                print ".\n";
            }
        } else {
            print qq{Wouldn't change the file "$fname".\n};
        }

        return 0;
    }

    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;
    }

    if ($changed) {
        print qq{File "$fname" successfully updated.\n} unless $quiet;
        return 1;
    } else {
        print qq{No changes in the file "$fname".\n} if $verbose;
        return 0;
    }
}

1;

__END__