view release on metacpan or  search on metacpan

marathon.pl  view on Meta::CPAN

#!/usr/bin/perl -Ilib

=head2 marathon.pl

Example usage of the Acme::KeyboardMarathon module. Just give it filename(s) on 
the command line as arguments and it returns the total distance.

  $> ./marathon.pl foo.txt bar.txt baz.txt

The first argument may be --qwerty or --dvorak, to specify the keyboard
layout. It defaults to QWERTY.

=cut

use Acme::KeyboardMarathon;
use Math::BigInt lib => 'GMP';
use strict;
use warnings;

my $akm = new Acme::KeyboardMarathon
  layout => $ARGV[0] =~ /^--\w/ ? substr shift(@ARGV), 2 : 'qwerty';