Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
Devel	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
charnames	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
croak	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
deprecate	[ DIR ]	drwxr-xr-x	2016-10-10 18:14
feature	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
locale	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
strict	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
subs	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
warnings	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
1_compile.t	1.64 KB	-r--r--r--	2014-12-27 11:49
Cname.pm	934 B	-r--r--r--	2014-12-27 11:49
Count.pm	107 B	-r--r--r--	2014-12-27 11:49
Sans_mypragma.pm	72 B	-r--r--r--	2014-12-27 11:49
common.pl	1.37 KB	-r--r--r--	2014-12-27 11:49
commonsense.t	583 B	-r--r--r--	2014-12-27 11:49
compmod.pl	274 B	-r--r--r--	2014-12-27 11:49
croak.t	126 B	-r--r--r--	2014-12-27 11:49
cygwin.t	2.2 KB	-r--r--r--	2014-12-27 11:49
dbmt_common.pl	11.85 KB	-r--r--r--	2014-12-27 11:49
deprecate.t	2.11 KB	-r--r--r--	2014-12-27 11:49
h2ph.h	3.98 KB	-r--r--r--	2014-12-27 11:49
h2ph.pht	3.96 KB	-r--r--r--	2014-12-27 11:49
mypragma.pm	596 B	-r--r--r--	2014-12-27 11:49
mypragma.t	1.32 KB	-r--r--r--	2014-12-27 11:49
no_load.t	637 B	-r--r--r--	2014-12-27 11:49
overload_fallback.t	388 B	-r--r--r--	2014-12-27 11:49
overload_nomethod.t	362 B	-r--r--r--	2014-12-27 11:49
proxy_constant_subs.t	873 B	-r--r--r--	2014-12-27 11:49
test_require.pm	114 B	-r--r--r--	2014-12-27 11:49
test_use.pm	126 B	-r--r--r--	2014-12-27 11:49
test_use_14937.pm	3 B	-r--r--r--	2014-12-27 11:49
universal.t	1.89 KB	-r--r--r--	2014-12-27 11:49

Rename

#!./perl

use strict;
use warnings;

BEGIN {
    unshift @INC, 'lib';
    require './test.pl';
    plan(tests => 14);
}

use mypragma (); # don't enable this pragma yet

BEGIN {
   is($^H{mypragma}, undef, "Shouldn't be in %^H yet");
}

is(mypragma::in_effect(), undef, "pragma not in effect yet");
{
    is(mypragma::in_effect(), undef, "pragma not in effect yet");
    eval qq{is(mypragma::in_effect(), undef, "pragma not in effect yet"); 1}
	or die $@;

use mypragma;
    use Sans_mypragma;
    is(mypragma::in_effect(), 42, "pragma is in effect within this block");
    is(Sans_mypragma::affected(), undef,
	"pragma not in effect outside this file");
    eval qq{is(mypragma::in_effect(), 42,
	       "pragma is in effect within this eval"); 1} or die $@;

{
      no mypragma;
      is(mypragma::in_effect(), 0, "pragma no longer in effect");
      eval qq{is(mypragma::in_effect(), 0, "pragma no longer in effect"); 1}
	or die $@;
    }

is(mypragma::in_effect(), 42, "pragma is in effect within this block");
    eval qq{is(mypragma::in_effect(), 42,
	       "pragma is in effect within this eval"); 1} or die $@;
}
is(mypragma::in_effect(), undef, "pragma no longer in effect");
eval qq{is(mypragma::in_effect(), undef, "pragma not in effect"); 1} or die $@;

BEGIN {
   is($^H{mypragma}, undef, "Should no longer be in %^H");
}