view release on metacpan or  search on metacpan

lib/Acme/KeyboardMarathon.pm  view on Meta::CPAN

use Math::BigInt;

use integer;
use warnings;
use strict;

sub new {
  my @args = @_;
  my $class = shift @args;
  my $self = {};
  bless($self,$class);

  croak("Odd number of arguments") if @args%2;
  my %args = @args;
  my $layout = delete $args{layout} || 'qwerty';
  croak("Unsupported layout $layout")
    unless $layout =~ /^(?:qwerty|dvorak)\z/;

  croak "Unknown options: " . join ", ", keys(%args) if keys %args;

  # all measures in 100ths of a cm