#!/usr/bin/perl -n

BEGIN {
    if (-t 0) {
        warn "usage e.g.: svn diff -x -w | sloc\n";
        exit 1;
    }
};

/^\+/ && ++$plus;
/^-/ && ++$minus;

END {
    $delta = $plus - $minus;
    print "plus:  $plus\n";
    print "minus: $minus\n";
    print "delta: $delta\n";
}