#!/usr/bin/perl

use strict;
use warnings;

use SourceCode::LineCounter::Perl;

my $counter = SourceCode::LineCounter::Perl->new;

foreach my $file ( @ARGV ) {
	$counter->count( $file );
	}

my $template = <<'HERE';
files: %s
total: %s
documentation: %s
code: %s
comment: %s
blank: %s
HERE

printf $template,
	scalar @ARGV,
	map { $counter->$_() }
		qw( total documentation code comment blank );