NAME

Device::KeyStroke::Mobile - Calculate key stroke times with mobile phone keypads

SYNOPSIS

  use Device::KeyStroke::Mobile;
  my $typing_times = calc_keystroke('example.com');

DESCRIPTION

Device::KeyStroke::Mobile is a module to calculate how many times you need to type keypads in mobile phone to build a word. For example, when you type example.com with a mobile keypad,

  e: 3 3
  x: 9 9
  a: 2
  m: 6
  p: 7
  l: 5 5 5
  e: 3 3
  .: *
  c: 2 2 2
  o: 6 6 6 >
  m: 6

you need to type keys 21 times.

This module would be useful when you conider taking a new domain name which is easy to type with mobile phones.

FUNCTIONS

This module exports following functions by default.

calc_keystroke

  $typing_times = calc_keystroke($text);

takes any text you wish to type in mobile phone and calculates how many typings you need to build it. If $text includes non-allowed characters (see "KEY MAPPING"), it would throw an exception. Note that this function u2c()es $text first, so it ignores cases.

KEY MAPPING

By default this module uses following key mapping:

        <   >

  [ 1 ] [ 2 ] [ 3 ]
         ABC   DEF

  [ 4 ] [ 5 ] [ 6 ¡×
   GHI   JKL   MNO

  [ 7 ] [ 8 ] [ 9 ]
  PQRS   TUV  WXYZ

  [ * ] [ 0 ] [ # ]
  .-@_/

This mapping is defined in $KeyMapping package variable (hash-ref) in Device::KeyStroke namespace. You can modify it like:

  $Device::KeyStroke::Mobile::KeyMapping->{1} = q[.@-_/:~];
  $Device::KeyStroke::Mobile::KeyMapping->{*} = q[];
  $Device::KeyStroke::Mobile::KeyMapping->{#} = q[,!?()#];

AUTHOR

Tatsuhiko Miyagawa <miyagawa@bulknews.net>

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