#!/usr/bin/perl -s

# ABSTRACT: Gives statistics about tmx file.
# PODNAME: tmxwc

our($h);
use XML::TMX::Reader;

my $TTU = 0;
my $n = scalar(@ARGV);

for my $file (@ARGV) {
    my $tm = XML::TMX::Reader->new($file);

    my $TU = 0;
    $tm->for_tu({-raw => 1 },
                 sub { $TU++ ;
                       print STDERR "\r$TU..." unless $TU%1000;
                   }
                );
    print (($h?"":"$file: "),"$TU tu.\n");
    $TTU += $TU;
}

print  "total: $TTU tu.\n" if $n > 1;

__END__

=pod

=encoding utf-8

=head1 NAME

tmxwc - Gives statistics about tmx file.

=head1 VERSION

version 0.34

=head1 SYNOPSIS

 tmxwc  tmx1 [tmx2 ...]

  -h     dont print filenames (default: print filenames)

=head1 DESCRIPTION

Gives statistical information about TMX files like the number of
translation units.

=head1 AUTHORS

=over 4

=item *

Alberto Simões <ambs@cpan.org>

=item *

José João Almeida <jj@di.uminho.pt>

=back

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2010-2017 by Projeto Natura <natura@di.uminho.pt>.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut
