Select Code to Download

  ...
  use warnings;
...
      $@ and die "Fatal error in $pkg\::Vars\::_access_maker?: $@\n";
    }
  } ## end sub _access_maker  }}}

  sub ARRAY (;*) {    
    my $p = $_[0];
    return @_ ? (ref $p && (1+index($p, '::ARRAY')? 1:0) : 'ARRAY'
  }

my $ptr=[];
say ARRAY if ARRAY $ptr;