A bit late, but thanks to both of you :)
Gabor
On Tue, May 2, 2017 at 6:33 PM, Gianni Ceccarelli
<dak...@thenautilus.net> wrote:
> On Tue, 2 May 2017 17:02:40 +0200
> Gabor Szabo <szab...@gmail.com> wrote:
>> Is there some way in Perl 6 to tell if a file was executed directly or
>> loaded into memory as a module?
>
> One way that seems to work: define a ``sub MAIN``; it will be invoked
> when you execute the file as a program, but won't be touched if you
> load it as a module.
>
> Example: in file ``/tmp/x/Foo.pm6``::
>
> class Foo {
> has $.value;
> }
>
> sub MAIN($value) {
> say Foo.new(:$value).value;
> }
>
> then::
>
> $ perl6 -I /tmp/x -e 'use Foo;say Foo.new(:value(5)).value'
> 5
>
> $ perl6 /tmp/x/Foo.pm6
> Usage:
> /tmp/x/Foo.pm6 <value>
>
> $ perl6 /tmp/x/Foo.pm6 12
> 12
>
> --
> Dakkar - <Mobilis in mobile>
> GPG public key fingerprint = A071 E618 DD2C 5901 9574
> 6FE2 40EA 9883 7519 3F88
> key id = 0x75193F88
>
> Leela: You buy one pound of underwear and you're on their list forever.
