view release on metacpan or  search on metacpan

lib/Modulino/Demo.pm  view on Meta::CPAN

use v5.14;

package Modulino::Demo;
use strict;
use utf8;

use warnings;

our $VERSION = '1.006';

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

sub _running_under_tester {
	!! $ENV{HARNESS_ACTIVE}
	}

sub _running_as_app {
	defined scalar caller

lib/Modulino/Demo2.pm  view on Meta::CPAN

use v5.14;

package Modulino::Demo2;
use strict;
use utf8;

use warnings;

our $VERSION = '1.006';

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

sub _running_under_tester {
	!! $ENV{HARNESS_ACTIVE}
	}

sub _running_as_app {
	defined scalar caller

lib/Modulino/Test.pm  view on Meta::CPAN

use v5.14;

package Modulino::Test;
use strict;
use utf8;

use warnings;

our $VERSION = '1.006';

UNITCHECK {
sub _running_under_tester {
	!! $ENV{CPANTEST}
	}

sub _running_as_app {
	defined scalar caller
	}

my $method = do {
	   if( _running_under_tester()    ) { 'test' } # testing