Lines Matching refs:vmsish
1 package vmsish;
7 vmsish - Perl pragma to control VMS-specific language features
11 use vmsish;
13 use vmsish 'status'; # or '$?'
14 use vmsish 'exit';
15 use vmsish 'time';
17 use vmsish 'hushed';
18 no vmsish 'hushed';
19 vmsish::hushed($hush);
21 use vmsish;
22 no vmsish 'time';
34 =item C<vmsish status>
39 =item C<vmsish exit>
47 =item C<vmsish time>
52 =item C<vmsish hushed>
68 $ perl -e"use vmsish qw(hushed); exit 44;" Hushed error exit
73 die() commands that are compiled after 'vmsish hushed' will be hushed
74 when they are executed. Doing a "no vmsish 'hushed'" turns off the
82 use vmsish 'hushed'; # turn on hushed flag
86 no vmsish 'hushed'; # turn off hushed flag
91 routine vmsish::hushed(). Without argument, it returns the hushed status.
92 Since vmsish::hushed is built-in, you do not need to "use vmsish" to call
97 vmsish::hushed(1);
99 print "Sssshhhh...I'm hushed...\n" if vmsish::hushed();
103 vmsish" is not un-hushed by calling vmsish::hushed(0) at runtime.
120 # Those hints are defined in vms/vmsish.h :
137 vmsish::hushed(1) if $sememe eq 'hushed';
150 vmsish::hushed(0) if $sememe eq 'hushed';