#!/usr/bin/perl

use strict;

package MyModule;

=pod

=head1 MyModule

=head2 My data is:

=cut

my $testread = join '', <DATA>;
warn $testread;

__DATA__

=pod

one == 1

two == 2

=cut


##</code><code>##

 

use overload 
  'x' => repeater;

sub repeater {
  my ($obj, $rep, $rev) = @_;
  ($obj, $rep) = ($rep, $obj) if ($rev);

  my @set = ();

  push @set, "$obj" for (1..$rep);
  warn @set;
  warn wantarray ? "a" : "s";
  return (@set);
}