Acme-Mobile-Therbligs

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

	- renamed to Acme::Mobile::Therbligs

0.03  Wed Jan  5 2005
	- corrections to POD
	- added SEE ALSO section for similar module

0.02  Sun Jan  2 20:07:00 2005
	- added more tests
	- added option for NO_SHIFT
	- updated documentation
	- added ability to change options in constructor
	- added option for NO_SENTENCE_CAPS
	- added case flag to count function
	- added debug flag to count function

0.01  Fri Dec 31 14:10:24 2004
	- original version; created by h2xs 1.23 with options
		-n Acme::Mobile::Thurblings -v 0.01 -X -P -b 5.6.0

README  view on Meta::CPAN

    this case keypresses or pauses) for people who like to optimize
    industrial processes.

    So you can use this module to determine useless facts such as that it
    takes as many keypresses to write "later" or "great" as it does "l8r"
    and "gr8".

    See the module POD for more details.

REVISION HISTORY
    The following changes have been made since v0.03:

    0.04  Wed Jan  5 2005
	- renamed to Acme::Mobile::Therbligs

    See the Changes file included with the distribution for a more
    comprehensive history.

AUTHOR
    Robert Rothenberg <rrwo at cpan.org>

lib/Acme/Mobile/Therbligs.pm  view on Meta::CPAN

This is used for the object-oriented interface. It is only useful if
you want to specify your own keypad or modify the rules:

  open $fh, 'mykeypad.yml';
  $obj = Acme::Mobile::Therbligs->new($fh, \%rules );

The rule file is in L<YAML> format that specifies the characters for
each key pressed (in the order that they occur for each key press).

The optional rules allow one to change the behavior of the counting
function:

  $obj = Acme::Mobile::Therbligs->new($fh,
  {
    SAME_KEY         => 1,
    NO_SENTENCE_CAPS => 0,
  });

=over

lib/Acme/Mobile/Therbligs.pm  view on Meta::CPAN

  $count = count_therbligs($message, $case_flag);

  $count = $obj->count_therbligs($message, $case_flag);

Returns the number of "therbligs" (keystrokes) used to generate the
message.  A therblig is either a keystroke, or the pause when one has
to wait in order to enter multiple letters from the same key (such as
with the word "high").

The default number of therbligs for waiting in the same key is
C<1>. There is no way to change that value for this version.

When C<$case_flag> is true, the number of therbligs includes
keystrokes to toggle the shift key.  It assumes that the first letter
of the message or a sentence is capitalized.  (If C<$case_flag> is
unspecified, it is assumed to be false.)

=cut

sub count_therbligs {
  my $self  = shift;