From @molecules

SHORT VERSION (notice lack of output when file is run)​:

$ cat lib/A.pm
use v6;
module A;

our sub MAIN ( $filename ) {
  say "Preparing to process '$filename'";
}

$ lib/A.pm
$ lib/A.pm foo.txt

LONG VERSION​:
I would like to make what brian d foy calls a 'modulino', a module
that can act as a program or as a module. This makes
Test-Driven-Development much easier, as you can test it like a module
but run it like a program.

However, using the 'module' keyword makes it cease working as a program.

Without the 'module' keyword, the following works fine as a program,
but not as a module. (I really like the automatically generated usage
message, by the way).

$ cat lib/A.pm
use v6;

our sub MAIN ( $filename ) {
  say "Preparing to process '$filename'";
}

$ lib/A.pm foo.txt
Preparing to process 'foo.txt'

$ lib/A.pm
Usage​:
lib/A.pm filename

shell returned 29

Then with the keyword 'module', it doesn't work right. Notice the lack
of a usage message and the lack of output.

$ cat lib/A.pm
use v6;
module A;

our sub MAIN ( $filename ) {
  say "Preparing to process '$filename'";
}

$ lib/A.pm
$ lib/A.pm foo.txt

Thanks,
Christopher Bottoms (molecules)

From @usev6

This was answered recently on SO​: http://stackoverflow.com/questions/29281305/how-do-i-make-a-modulino-in-perl6

The recommended solution was "to add MAIN to the module and import it into the script's mainline. This way, everything declared within the module is visible within MAIN without having to explicitly export everything​:

module main {
  sub process(@​filenames) {
  for @​filenames -> $filename {
  say "Processing '$filename'";
  }
  }

  sub MAIN(*@​filenames) is export(​:MAIN) {
  process(@​filenames);
  }
}

import main :MAIN;

From @coke

On Wed Apr 01 11​:46​:59 2015, bartolin@​gmx.de wrote​:

This was answered recently on SO​:
http://stackoverflow.com/questions/29281305/how-do-i-make-a-modulino-
in-perl6

The recommended solution was "to add MAIN to the module and import it
into the script's mainline. This way, everything declared within the
module is visible within MAIN without having to explicitly export
everything​:

module main {
sub process(@​filenames) {
for @​filenames -> $filename {
say "Processing '$filename'";
}
}

sub MAIN(*@​filenames) is export(​:MAIN) {
process(@​filenames);
}
}

import main :MAIN;

Based on bartolin's last comment, closing this ticket.
--
Will "Coke" Coleda

The RT System itself - Status changed from 'new' to 'open'

@coke - Status changed from 'open' to 'rejected'