modulino and $VERSION

[neilwatson]

Greetings,

I'm attempting to learn brian_d_foy's modulino. In this early prototype I'm getting an uninitialized error about $VERSION. What is the cause?

#!/usr/bin/perl

use strict;
use warnings;
use feature qw/say/;

use vars qw/$VERSION/;

$VERSION = 0.01;

UNITCHECK {
sub _running_under_docreader {
    !! $ENV{PERLDOC}
    }

sub _running_under_tester {
    !! $ENV{HARNESS_ACTIVE}
    }

sub _running_as_app {
    defined scalar caller
    }

my $method = do {
       if( _running_under_docreader() ) { 'doc'  } # reading docs
    elsif( _running_under_tester()    ) { 'test' } # testing
    elsif( _running_as_app()          ) { 'run'  } # running the appli
+cation
    else                                { undef  } # everything else
    };

__PACKAGE__->$method(@ARGV) if defined $method;
}

sub run
{
   say $VERSION;
}

$ ./foo.pl 
Use of uninitialized value $VERSION in say at ./foo.pl line 36.

[AppleFritter]

UNITCHECK blocks are run right after a unit has been compiled, before runtime (see perlmod), so $VERSION has not been initialized by the time you call run(). Try setting it like this:

BEGIN {
    $VERSION = 0.01;
}

[Anonymous Monk]

Greetings, I'm attempting to learn brian_d_foy's modulino. In this early prototype I'm getting an uninitialized error about $VERSION. What is the cause?

You've pasted a module into a script -- that is anti-modulino friend

I didn't realize until now that his modulino demo has that UNITCHECK stuff -- it doesn't belong in 99.9999% of code

The most useful part of the modulino idea is having all code in modules, and having your program , your foo.pl call one function, say  use MyModulino; MyModulino::MainCLI();

This is whats most important part of modulino idea, that code is in the module, its modular, its testable, its extensible

The anti-modulino way is put all the code in foo.pl and App::MyModulino is just empty module with $VERSION number

I guess all this time he's been to make modulino mean something beyond "script as module" -- and all this time I've been using modulino as script-as-module

Whoa