Home
last modified time | relevance | path

Searched refs:BEGIN (Results 1 – 25 of 7525) sorted by relevance

12345678910>>...301

/openbsd-src/gnu/usr.bin/perl/t/comp/
H A Dhints.t5 BEGIN {
10 BEGIN { print "1..31\n"; }
11 BEGIN {
24 BEGIN { $^H |= 0x04020000; $^H{foo} = "a"; }
25 BEGIN {
32 BEGIN { $^H |= 0x00020000; $^H{foo} = "b"; }
33 BEGIN {
38 BEGIN {
66 BEGIN {
74 BEGIN {
[all …]
H A Dfinal_line_num.t3 BEGIN { print "1..1\n"; }
5 BEGIN { $SIG{__DIE__} = sub {
13 BEGIN { $last_line_num = __LINE__; } print 1+
/openbsd-src/gnu/usr.bin/perl/ext/re/t/
H A Dstrict.t5 BEGIN {
16 BEGIN { require_ok( 're' ); }
22 BEGIN { $SIG{__WARN__} = sub { push @w, @_ } };
24 BEGIN { is(scalar @w, 0, 'No default-on warnings for qr/\b*/'); }
25 BEGIN {undef @w; }
31 BEGIN { is(scalar @w, 1, 'use re "strict" turns on warnings'); }
33 BEGIN { undef @w; }
38 BEGIN { is(scalar @w, 0, 'no re "strict" restores warnings state'); }
41 BEGIN {undef @w; }
43 BEGIN { is(scalar @w, 0, 'dropping out of "strict" scope reverts warnings default'); }
[all …]
/openbsd-src/gnu/usr.bin/perl/t/op/
H A Dprotowarn.t3 BEGIN {
16 BEGIN {
31 BEGIN {
36 BEGIN { @warnings = () }
40 BEGIN {
49 BEGIN {
58 BEGIN {
68 BEGIN {
72 BEGIN {
78 BEGIN {
[all …]
H A Dblocks.t3 BEGIN {
38 BEGIN {print ":b1"}
40 BEGIN {print ":b2"}
42 BEGIN {BEGIN {print ":b3"}; print ":b4"}
52 BEGIN {print ":b6-c"}})/x;
58 BEGIN {print ":b6-r"}})/
62 eval {BEGIN {print ":b7"}};
83 BEGIN {$f = 'main'; print ":$f"}
89 BEGIN {$f = 'bar';print ":$f"}
97 BEGIN {$f = 'myfoo'; print ":$f"}
[all …]
H A Doverride.t3 BEGIN {
18 BEGIN { package Foo; *main::getlogin = sub { "kilroy"; } }
23 BEGIN { *CORE::GLOBAL::time = sub () { $t; } }
31 BEGIN { *CORE::GLOBAL::require = sub { $r = shift; 1; } }
120 BEGIN { *OverridenWarn::warn = sub { CORE::warn "@_ overriden"; }; }
126 BEGIN { *OverridenPop::pop = sub { ::is( $_[0][0], "ok" ) }; }
146 BEGIN { package other; *::caller = \&::caller }
H A Dcaller.t4 BEGIN {
8 plan( tests => 112 ); # some tests are run in a BEGIN block
13 BEGIN { print "# Tests with caller(0)\n"; }
37 BEGIN {
40 "[perl #68712] filenames after require in a BEGIN block"
102 BEGIN { check_bits( ${^WARNING_BITS}, "\0" x $warnings::BYTES, 'all bits off via "no warnings"' ) }
106 BEGIN { check_bits( ${^WARNING_BITS}, "\x55" x $warnings::BYTES,
266 eval '"${;BEGIN{ ${\(caller 2)[6]} = *foo }}"';
284 BEGIN { ${^WARNING_BITS} = $bits }
301 BEGIN {unde
[all...]
/openbsd-src/gnu/usr.bin/perl/cpan/Text-Balanced/t/
H A D07_exttag.t46 # USING: gen_extract_tagged("BEGIN([A-Z]+)",'END$1',"(?s).*?(?=BEGIN)")->($str);
50 # USING: extract_tagged($str,"BEGIN([A-Z]+)",'END$1',"(?s).*?(?=BEGIN)");
54 # USING: extract_tagged($str,"BEGIN([A-Z]+)",'END$1',"(?s).*?(?=BEGIN)");
61 # USING: extract_tagged($str,"BEGIN","END","(?s).*?(?=BEGIN)");
62 ignore\n this and then BEGIN at the END;
70 # USING: extract_tagged($str,"BEGIN","END");
71 BEGIN at the BEGIN keyword and END at the END;
72 BEGIN at the beginning and end at the END;
84 BEGIN at the beginning and end at the end;
85 BEGIN at the BEGIN keyword and END at the end;
[all …]
H A D09_gentag.t65 # USING: gen_extract_tagged("BEGIN","END");
66 BEGIN at the BEGIN keyword and END at the END;
67 BEGIN at the beginning and end at the END;
79 BEGIN at the beginning and end at the end;
80 BEGIN at the BEGIN keyword and END at the end;
83 # USING: gen_extract_tagged("BEGIN","END",undef,{reject=>["BEGIN","END"]});
85 BEGIN at the BEGIN keyword and END at the end;
/openbsd-src/usr.bin/lex/
H A Dscan.l144 ^{WS} indented_code = true; BEGIN(CODEBLOCK);
153 BEGIN(CODEBLOCK);
172 BEGIN(SECT2PROLOG);
179 ^"%option" BEGIN(OPTION); return OPTION_OP;
199 BEGIN(PICKUPDEF);
244 ^"%}".*{NL} ++linenum; BEGIN(INITIAL);
254 BEGIN(INITIAL);
320 BEGIN(INITIAL);
327 {NL} ++linenum; BEGIN(INITIAL);
456 BEGIN(RECOVE
[all...]
/openbsd-src/gnu/usr.bin/perl/dist/Carp/t/
H A Dvivify_gv.t1 BEGIN { print "1..5\n"; }
3 our $has_is_utf8; BEGIN { $has_is_utf8 = exists($utf8::{"is_utf8"}); }
4 our $has_dgrade; BEGIN { $has_dgrade = exists($utf8::{"downgrade"}); }
5 our $has_swashnew; BEGIN { $has_swashnew = exists($utf8::{"SWASHNEW"}); }
6 our $has_strval; BEGIN { $has_strval = exists($overload::{"StrVal"}); }
7 our $has_sv2obj; BEGIN { $has_sv2obj = exists($B::{"svref_2object"}); }
/openbsd-src/sys/dev/microcode/aic7xxx/
H A Daicasm_scan.l92 "/*" { BEGIN COMMENT; /* Enter comment eating state */ }
98 <COMMENT>"*"+"/" { BEGIN INITIAL; }
102 BEGIN CEXPR;
110 BEGIN INITIAL;
142 BEGIN STRING;
251 BEGIN INCLUDE;
256 <INCLUDE>[>] { BEGIN INITIAL; return yytext[0]; }
259 BEGIN INITIAL;
276 BEGIN MACRODEF;
289 BEGIN MACROBODY;
[all …]
/openbsd-src/usr.bin/file/magdir/
H A Dssl6 0 string -----BEGIN\ CERTIFICATE----- PEM certificate
7 0 string -----BEGIN\ CERTIFICATE\ REQ PEM certificate request
8 0 string -----BEGIN\ RSA\ PRIVATE PEM RSA private key
9 0 string -----BEGIN\ DSA\ PRIVATE PEM DSA private key
10 0 string -----BEGIN\ EC\ PRIVATE PEM EC private key
/openbsd-src/gnu/usr.bin/perl/t/lib/warnings/
H A D3both119 BEGIN { $^W = 0 }
131 BEGIN { $^W = 1 }
140 BEGIN { $^W = 1 }
148 BEGIN { $^W = 1 }
157 BEGIN { $^W = 1 }
167 BEGIN { $^W = 1 }
175 BEGIN { $^W = 1 }
188 BEGIN { $^W = 0 }
201 BEGIN { $^W = 1 }
214 BEGIN { $^W = 1 }
[all …]
H A Dpad376 BEGIN { binmode STDERR, 'utf8'; }
386 BEGIN { binmode STDERR, 'utf8'; }
397 BEGIN { binmode STDERR, 'utf8'; }
408 BEGIN { binmode STDERR, 'utf8'; }
419 BEGIN { binmode STDERR, 'utf8'; }
432 BEGIN { binmode STDERR, 'utf8'; }
445 BEGIN { binmode STDERR, 'utf8'; }
461 BEGIN { binmode STDERR, 'utf8'; }
472 BEGIN { binmode STDERR, 'utf8'; }
485 BEGIN { binmode STDERR, 'utf8'; }
[all …]
/openbsd-src/gnu/usr.bin/perl/ext/XS-APItest/t/
H A Dblockhooks-csc.t10 BEGIN {
18 BEGIN {
75 BEGIN { ok(!keys %destroyed, 'nothing destroyed yet'); }
79 BEGIN { ok(!keys %destroyed, 'nothing destroyed yet'); }
85 BEGIN { ok(!keys %destroyed, 'nothing destroyed yet'); }
88 BEGIN {
H A Dlexsub.t7 BEGIN { lexical_import fribbler => sub { 3*shift } }
13 BEGIN { lexical_import fribbler => sub { 3*shift } }
21 # With ‘use’ rather than explicit BEGIN:
25 BEGIN { ++$INC{"Lexical/Exporter.pm"} }
/openbsd-src/gnu/usr.bin/perl/dist/lib/t/
H A D01lib.t3 BEGIN {
18 BEGIN {
52 BEGIN { use_ok('Yup') }
54 BEGIN {
78 BEGIN {
/openbsd-src/gnu/usr.bin/perl/dist/threads/t/
H A Dblocks.t4 BEGIN {
16 BEGIN {
28 BEGIN {
65 BEGIN {
66 $SIG{'__WARN__'} = sub { ok(0, "BEGIN: $_[0]"); };
105 ok($bthr, 'BEGIN thread');
108 ok($bthr->join() == 42, 'BEGIN join');
/openbsd-src/gnu/usr.bin/perl/ext/Hash-Util-FieldHash/t/
H A D01_load.t9 BEGIN {
20 BEGIN {
25 BEGIN {
37 BEGIN {
44 BEGIN {
/openbsd-src/gnu/usr.bin/perl/lib/User/
H A Dgrent.t3 BEGIN {
10 BEGIN {
20 BEGIN {
26 BEGIN {
/openbsd-src/gnu/usr.bin/gcc/gcc/
H A Dgengtype-lex.l175 BEGIN(in_struct);
181 BEGIN(in_struct);
187 BEGIN(in_struct);
194 "/*" { BEGIN(in_struct_comment); }
196 ^"%{" { BEGIN(in_yacc_escape); }
282 <in_comment>"*/" { BEGIN(INITIAL); }
283 <in_struct_comment>"*/" { BEGIN(in_struct); }
290 "%}" { BEGIN(in_struct); }
/openbsd-src/gnu/usr.bin/perl/lib/DBM_Filter/t/
H A Dutf8.t6 BEGIN
23 BEGIN { use_ok('DBM_Filter') };
25 BEGIN {
35 BEGIN { use_ok('Fcntl') };
36 BEGIN { use_ok('charnames', qw{greek})};
/openbsd-src/usr.bin/bc/
H A Dscan.l64 "/*" BEGIN(comment);
66 "*/" BEGIN(INITIAL);
73 \" BEGIN(string); init_strbuf();
80 \" BEGIN(INITIAL); yylval.str = strbuf; return STRING;
85 BEGIN(number);
91 BEGIN(number);
100 BEGIN(INITIAL);
111 BEGIN(INITIAL);
/openbsd-src/usr.sbin/nsd/
H A Dzlexer.lex159 BEGIN(incl);
165 BEGIN(INITIAL);
176 BEGIN(INITIAL);
302 \\\[ { BEGIN(bitlabel); }
305 BEGIN(INITIAL);
312 BEGIN(INITIAL);
318 {QUOTE} { BEGIN(quotedstring); LEXOUT(("\" ")); }
321 BEGIN(INITIAL);
329 BEGIN(INITIAL);

12345678910>>...301