modulino and perldoc

[neilwatson]

Greetings again,

Regarding Modulino::Demo, specifically the following sections. How does the doc sub work? Is it supposed to run when the module is called using perldoc? I did try it, but I didn't see the s/__PACKAGE__/$package/; happen. Have I got it all wrong?

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
    else                                { undef  } # everything else
    };

sub doc {
    say "Running as docs";

    my $data = do {
        local( @ARGV, $/ ) = __FILE__;
        <>;
        };

    my $package = __PACKAGE__;
    $data =~ s/__PACKAGE__/$package/; # AND <<

    say $data;
    }

[Anonymous Monk]

Have I got it all wrong?

No, the demo is fudgy :) and fudgedocumented :)

But, if you UTSL like I did, you can see that you need to run perldoc -MModulino::Demo3 Modulino::Demo3 to see the magic, quite fudgy indeed

Also it works with perldoc -MModulino::Demo2 Modulino::Demo2

This will run the tests  prove -MModulino::Demo

So you can see, some of these things just aren't that well thought out

FWIW, here is background on brian d foy modulino stuff
How a script becomes a module
http://www.slideshare.net/brian_d_foy/advanced-modulinos-trial, http://www.slideshare.net/brian_d_foy/advanced-modulinos

Programs as modules is great idea, but this "run how its loaded" is bleh at best
good idea connected to these bookmarks (module as code) is schwern's skimmable code