# A MR job outputs only articles with names beginning with an ''A'' (ignoring the case)
# rm -rf step-3-out-ex; perl step-3-exercise.pl /home/straka/wiki/cs-text-medium/ step-3-out-ex
# less step-3-out-ex/part-m-*

package My::Mapper;
use Moose;
with 'Hadoop::Mapper';

sub map {
  my ($self, $key, $value, $context) = @_;

  # YOUR CODE HERE

}

package main;
use Hadoop::Runner;

my $runner = Hadoop::Runner->new(
  mapper => My::Mapper->new(),
  input_format => 'KeyValueTextInputFormat');

$runner->run();