view release on metacpan or  search on metacpan

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

package Acme::KeyboardMarathon;
$Acme::KeyboardMarathon::VERSION = '1.27';

use Carp;
use Data::Dumper;
use Math::BigInt;

use integer;
use warnings;
use strict;

sub new {
  my @args = @_;
  my $class = shift @args;
  my $self = {};

t/02-charset.t  view on Meta::CPAN

use Acme::KeyboardMarathon;
use Data::Dumper;
use Test::Simple tests => 98;
use warnings;
use strict;

my $ak = new Acme::KeyboardMarathon;

ok( $ak->{k}->{"\t"} == 255, '\t should be 255, but is ' . $ak->{k}->{"\t"});
ok( $ak->{k}->{"\n"} == 425, '\n should be 425, but is ' . $ak->{k}->{"\n"});
ok( $ak->{k}->{"\r"} ==   0, '\r should be 0, but is '   . $ak->{k}->{"\r"});
ok( $ak->{k}->{' '}  ==  25, '  should be 25, but is '   . $ak->{k}->{' '} );