Home
last modified time | relevance | path

Searched full:my (Results 1 – 25 of 3788) sorted by relevance

12345678910>>...152

/openbsd-src/gnu/usr.bin/perl/cpan/IO-Compress/t/compress/
H A Doneshot.pl15 my $extra = 0 ;
25 my $OriginalContent1 = <<EOM ;
31 my $OriginalContent2 = <<EOM ;
40 my $CompressClass = identify();
41 my $UncompressClass = getInverse($CompressClass);
42 my $Error = getErrorRef($CompressClass);
43 my $UnError = getErrorRef($UncompressClass);
44 my $TopFuncName = getTopFuncName($CompressClass);
47 my @MultiValues = getMultiValues($CompressClass);
49 foreach my
[all...]
H A Dgeneric.pl15 my $extra = 0 ;
17 my $st = eval { require Test::NoWarnings ; Test::NoWarnings->import; 1; };
26 my $filename = shift ;
27 my $init = shift ;
30 my $fil = $UncompressClass->can('new')->( $UncompressClass, $filename,
35 my $data = '';
45 my $CompressClass = identify();
47 my $Error = getErrorRef($CompressClass);
48 my $UnError = getErrorRef($UncompressClass);
59 my(
[all...]
H A Dencode.pl20 my $extra = 0 ;
22 my $st = eval { require Test::NoWarnings ; Test::NoWarnings->import; 1; };
31 my $CompressClass = identify();
32 my $UncompressClass = getInverse($CompressClass);
33 my $Error = getErrorRef($CompressClass);
34 my $UnError = getErrorRef($UncompressClass);
37 my $string = "\x{df}\x{100}\x80";
38 my $encString = Encode::encode_utf8($string);
39 my $buffer = $encString;
41 #for my
[all...]
H A Dmerge.pl18 my $extra = 0 ;
30 my $CompressClass = identify();
31 my $UncompressClass = getInverse($CompressClass);
32 my $Error = getErrorRef($CompressClass);
33 my $UnError = getErrorRef($UncompressClass);
57 foreach my $to_file (0,1)
64 my $lex = LexFile->new( my $out_file );
82 my $dest ;
88 my
[all...]
/openbsd-src/gnu/usr.bin/perl/dist/Storable/t/
H A Dattach_errors.t39 my $goodfreeze = bless {}, 'My::GoodFreeze';
40 my $frozen = undef;
47 package My::GoodFreeze;
50 my ($self, $clone) = @_;
57 my ($class, $clone, $string) = @_;
58 return bless { }, 'My::GoodFreeze';
66 my $badfreeze = bless {}, 'My::BadFreeze';
74 package My::BadFreeze;
77 my ($self, $clone) = @_;
84 my ($class, $clone, $string) = @_;
[all …]
H A Dhugeids.t39 my $skips = $ENV{PERL_STORABLE_SKIP_ID_TEST} || '';
40 my $keeps = $ENV{PERL_STORABLE_KEEP_ID_TEST};
99 my %opts = @_;
101 my $freeze = $opts{freeze}
103 my $thaw = $opts{thaw}
105 my $id = $opts{id}
107 my $name = $opts{name}
109 my $memory = $opts{memory}
111 my $todo_thaw = $opts{todo_thaw} || "";
123 my $stored;
[all …]
H A Dblessed.t42 (REF => \(my $aref = []),
43 VSTRING => \(my $vstring = v1.2.3),
44 'long VSTRING' => \(my $lvstring = eval "v" . 0 x 300),
45 LVALUE => \(my $substr = substr((my $str = "foo"), 0, 3)));
47 my $test = 18;
48 my $tests = $test + 41 + (2 * 6 * keys %::immortals) + (3 * keys %::weird_refs);
60 my $self = shift;
65 my $self = shift;
66 my $cloning = shift;
67 my ($x, $obj) = @_;
[all …]
/openbsd-src/gnu/usr.bin/perl/t/op/
H A Dlexsub.t72 my $x = if if if;
75 my $y = if if if;
89 my $called;
210 my $x = if if if;
213 my $y = if if if;
232 my $x = shift;
243 # tion of a named sub to another (i.e., that they are not my subs).
250 my $x = shift;
257 my $poom = foom(27);
258 my
[all...]
H A Ddecl-refs.t9 for my $decl (qw< my CORE::state our local >) {
10 for my $funny (qw< $ @ % >) {
12 # my \$foo my(\$foo) my\($foo) for my \$foo
14 for my $code("$decl \\${funny}x", "$decl\(\\${funny}x\)",
27 my($w,$c);
41 for $decl ('my', 'state', 'our', 'local') {
43 # The weird code that follows uses ~ as a sigil placeholder and MY
45 my $code = '#line ' . (__LINE__+1) . ' ' . __FILE__ . "\n" . <<'END';
46 my $ret = MY \~a;
47 is $ret, \~a, 'MY \$a returns ref to $a';
[all …]
H A Dswitch.t38 my $x = "foo";
39 given(my $x = "bar") {
47 given(my $x = "foo") {
48 when(be_true(my $x = "bar")) {
61 my $ok;
72 my $ok;
84 my ($ok1, $ok2);
96 my $ok;
107 my $ok;
119 my $ok = 1;
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/JSON-PP/t/
H A D120_incr_parse_truncated.t9 my ($input, $sub) = @_;
14 my $input = shift;
15 my $coder = JSON::PP->new;
16 my $res = eval { $coder->incr_parse($input) };
17 my $e = $@; # test more clobbers $@, we need it twice
24 my $input = shift;
25 my $coder = JSON::PP->new;
26 my $res = eval { $coder->incr_parse($input) };
27 my $e = $@; # test more clobbers $@, we need it twice
34 my $input = shift;
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/IO-Compress/bin/
H A Dzipdetails10 my $NESTING_DEBUG = 0 ;
32 my $VERSION = '4.004' ;
101 my %ZIP_CompressionMethods =
134 my %OS_Lookup = (
161 my %Lookup = (
187 my $signature = shift ;
197 my $signature = shift ;
207 my $signature = shift ;
214 my $signature = shift ;
220 my
[all...]
/openbsd-src/gnu/usr.bin/perl/cpan/IO-Compress/t/
H A Dcz-14gzopen.t19 my $extra = 0 ;
43 #my $name = "test.gz" ;
44 my $lex = LexFile->new( my $name );
46 my $hello = <<EOM ;
51 my $len = length $hello ;
53 my ($x, $uncomp) ;
55 ok my $fil = gzopen($name, "wb") ;
84 my $xyz = "123" ;
96 my
[all...]
H A D005defhdr.t18 my $extra = 0 ;
36 my $string = shift || '' ;
37 my %opts = @_ ;
39 my $buffer ;
40 ok my $def = IO::Compress::Deflate->new( \$buffer, %opts );
45 ok my $inf = IO::Uncompress::Inflate->new( \$buffer, Append => 1 );
46 my $uncomp = "";
48 my $actual = 0 ;
49 my $status = 1 ;
58 ok my
[all...]
H A D001bzip2.t20 my $extra = 0 ;
32 my $CompressClass = 'IO::Compress::Bzip2';
33 my $UncompressClass = getInverse($CompressClass);
34 my $Error = getErrorRef($CompressClass);
35 my $UnError = getErrorRef($UncompressClass);
39 my $filename = shift ;
40 my $init = shift ;
43 my $fil = $UncompressClass->can('new')->( $UncompressClass, $filename,
48 my $data = '';
61 my
[all...]
/openbsd-src/gnu/usr.bin/perl/t/perf/
H A Dbenchmarks78 # for my $__loop__ (1..$ARGV[0]) {
127 setup => 'sub f { my ($a, $b, $c) = @_; 1 }',
132 setup => 'my $x; sub f { my ($a, $b) = @_; $a+$b }',
137 setup => 'my $x; sub f { my ($a, $b) = @_; \$a }',
142 setup => 'my @a; sub f { my ($a, $b, $c) = @_; $a+$b, $c, 1 }',
147 setup => 'my @a; sub f { my (
[all...]
/openbsd-src/gnu/usr.bin/perl/t/lib/warnings/
H A Dpad4 my $x;
5 my $x ;
9 my $x;
16 my $x;
33 my $x ;
34 my $x ;
35 my $y = my $y ;
36 my $p ;
38 my $p ;
41 my $x ;
[all …]
/openbsd-src/regress/usr.sbin/syslogd/
H A Dfuncs.pl28 my $firstlog = "syslogd regress test first message";
29 my $secondlog = "syslogd regress test second message";
30 my $thirdlog = "syslogd regress test third message";
31 my $testlog = "syslogd regress test log message";
32 my $downlog = "syslogd regress client shutdown";
33 my $charlog = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";
36 my %args = @_;
37 my $num = delete $args{num} // 1;
38 my $domain = delete $args{domain} // AF_INET;
39 my $addr = delete $args{addr} // "127.0.0.1";
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/Test-Harness/t/
H A Dharness-bailout.t1 package My::Aggregator;
6 my ($class) = @_;
8 my $self = { results => {} };
16 my ($self, $description, $parser) = @_;
23 package My::Session;
28 my ($class, %args) = @_;
30 my $self = { %args };
35 my ($self, $result) = @_;
45 package My::Formatter;
50 my (
[all...]
/openbsd-src/gnu/usr.bin/perl/cpan/Compress-Raw-Bzip2/t/
H A D01bzip2.t21 my $extra = 0 ;
26 my $count = 0 ;
51 my $string = shift ;
52 my ($dummy, $file, $line) = caller ;
64 my $string = shift ;
72 my $hello = <<EOM ;
77 my $len = length $hello ;
93 my $hello = "I am a HAL 9000 computer" ;
94 my @hello = split('', $hello) ;
95 my (
[all...]
/openbsd-src/regress/usr.bin/mandoc/mdoc/Fo/
H A Dbreak.out_markdown11 *my\_long\_return\_type \*&zwnj;*
12 **my\_long\_function**(*my\_long\_type first\_argument*, *my\_long\_type second\_argument*);
15 …long that it will not fit on the line**(*my\_long\_type first\_argument*, *my\_long\_type second\_…
19 *my\_long\_return\_type \*&zwnj;*
20 **my\_long\_function**(*my\_long\_type first\_argument*,
21 *my\_long\_type second\_argument*);
24 **this function name is so ridiculously long that it will not fit on the line**(*my\_long\_type fir…
25 *my\_long\_type second\_argument*,
26 *my\_long\_type third\_argument*);
30 *my\_long\_return\_type \*&zwnj;*
[all …]
/openbsd-src/gnu/usr.bin/perl/regen/
H A Dmph.pl33 my $RSHIFT= 8;
34 my $MASK= U32_MAX;
35 my $MAX_SEED2= U16_MAX; # currently the same, but not necessarily.
36 my $IS_32BIT= !eval { pack "Q", 1 };
39 my ($class, %self)= @_;
41 my $source_hash= $self{source_hash}
44 my $length_all_keys= 0;
51 my $base_name= $self{base_name};
63 my $split_strategy;
116 my ($key, $seed)= @_;
[all …]
/openbsd-src/gnu/usr.bin/perl/t/lib/strict/
H A Drefs6 my $fred ;
22 my $str="A::Really::Big::Package::Name::To::Use";
53 my $fred ;
54 my $a = ${"fred"} ;
61 my $fred ;
62 my $a = ${"fred"} ;
69 my $fred ;
70 my $b = "fred" ;
71 my $a = $$b ;
78 my $b ;
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/CPAN-Meta/t/
H A Dconverter.t26 my ($class, $file) = @_;
32 my $data_dir = IO::Dir->new( 't/data-test' );
33 my @files = sort grep { /^\w/ } $data_dir->read;
39 for my $f ( reverse sort @files ) {
41 my $path = File::Spec->catfile('t','data-test',$f);
42 my $original = Parse::CPAN::Meta->load_file( $path );
44 my $original_v = _spec_version($original);
47 my $cmc = CPAN::Meta::Converter->new( $original );
48 my $converted = $cmc->convert( version => 2 );
50 my $cmv = CPAN::Meta::Validator->new( $converted );
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/Archive-Tar/t/
H A D02_methods.t20 my $Class = 'Archive::Tar';
21 my $FClass = $Class . '::File';
31 my @EXPECT_NORMAL = (
38 my $ALL_CHARS = join '', "\r\n", map( chr, 1..255 ), "zzz\n\r";
42 my @EXPECTBIN = (
54 my @EXPECTX = (
60 my $LONG_FILE = qq[directory/really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-really-long-directory-name/myfile];
63 my $TOO_LONG = ($^O eq 'MSWin32' or $^O eq 'cygwin' or $^O eq 'VMS')
67 my $alt = File::Spec->catfile( cwd(), $LONG_FILE);
76 my
[all...]

12345678910>>...152