Acme-KeyboardMarathon
view release on metacpan - search on metacpan
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}->{' '} );
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.595 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )