Home
last modified time | relevance | path

Searched refs:package (Results 1 – 25 of 515) sorted by relevance

12345678910>>...21

/mirbsd/src/gnu/usr.bin/perl/lib/
Doverload.pm10 $package = shift;
13 $ {$package . "::OVERLOAD"}{dummy}++; # Register with magic by touching.
14 *{$package . "::()"} = \&nil; # Make it findable via fetchmethod.
21 $ {$package . "::(" . $_} = $sub;
25 *{$package . "::(" . $_} = \&{ $sub };
28 ${$package . "::()"} = $fb; # Make it findable too (fallback only).
32 $package = (caller())[0];
35 $package->overload::OVERLOAD(@_);
39 $package = (caller())[0];
40 ${$package . "::OVERLOAD"}{dummy}++; # Upgrade the table
[all …]
DAutoLoader.t28 package Foo;
37 package Foo;
46 package Foo;
55 package Foo;
65 package Foo;
71 package Foo;
80 package main;
127 package Foo;
137 package Foo;
144 package Bar;
[all …]
DExporter.t39 package Testing;
89 package Foo;
113 package Bar;
121 package Yar;
130 package Arrr;
136 package Mars;
144 package Venus;
153 package More::Testing;
160 package Yet::More::Testing;
170 package Testing::Unused::Vars;
[all …]
Doverload.t13 package Oscalar;
47 package main;
123 eval q[ package Oscalar; use overload ('++' => sub { $ {$_[0]}++;$_[0] } ) ];
136 package Oscalar;
138 package main;
150 eval q[package Oscalar; use overload ('++' => sub { $ {$_[0]} += 2; $_[0] } ) ];
163 package Oscalar;
165 package main;
185 eval q[ package Oscalar; use overload ('=' => sub {$main::copies++;
186 package Oscalar;
[all …]
Dfields.pm34 my $package = caller(0);
36 %{"$package\::FIELDS"} = () unless %{"$package\::FIELDS"};
37 my $fields = \%{"$package\::FIELDS"};
38 my $fattr = ($attr{$package} ||= [1]);
42 bless \%{"$package\::FIELDS"}, 'pseudohash';
/mirbsd/src/gnu/usr.bin/perl/ext/Storable/t/
Dutf8hash.t118 package Hash_Test;
124 package main;
133 my ($object, $package) = @_;
134 unless ($package) {
138 isa_ok ($object, $package);
148 for my $package ('', 'Hash_Test') {
150 if ($package) {
151 bless \%hash, $package;
162 class_test ($copy, $package);
175 if ($package) {
[all …]
Drecurse.t30 package OBJ_REAL;
58 package OBJ_SYNC;
79 package OBJ_SYNC2;
110 package OBJ_REAL2;
136 package main;
191 package Foo;
199 package Bar;
222 package main;
238 package CLASS_1;
245 package CLASS_2;
[all …]
Dblessed.t38 package SHORT_NAME;
42 package SHORT_NAME_WITH_HOOK;
58 package main;
65 package $name;
73 package ${name}_WITH_HOOK;
118 package RETURNS_IMMORTALS;
145 package main;
164 package HAS_HOOK;
178 package main;
Dattach_errors.t55 package My::GoodFreeze;
82 package My::BadFreeze;
123 package My::GoodThaw;
164 package My::BadThaw;
202 package My::GoodAttach;
215 package My::GoodAttach::Subclass;
257 package My::BadAttach;
/mirbsd/src/gnu/usr.bin/perl/lib/ExtUtils/t/
DConstant.t60 my $package = "ExtTest";
217 open(XS, "$package.xs") or die $!;
228 $regen = `$runperl -x $package.xs`;
231 print "not ok $realtest # $runperl -x $package.xs failed: $?\n";
288 my $package = shift;
298 'NAME' => "$package",
299 'VERSION_FROM' => "$package.pm", # finds \$VERSION
301 (#ABSTRACT_FROM => "$package.pm", # XXX add this
323 my ($name, $items, $export_names, $package, $header, $testfile, $num_tests)
328 C_constant ($package, undef, "IV", $types, undef, undef, @$items);
[all …]
/mirbsd/src/gnu/usr.bin/perl/t/lib/strict/
Dvars52 Global symbol "$fred" requires explicit package name at - line 4.
60 Global symbol "$fred" requires explicit package name at - line 4.
68 Global symbol "$fred" requires explicit package name at - line 4.
81 Global symbol "$joe" requires explicit package name at - line 8.
93 Global symbol "$joe" requires explicit package name at - line 6.
126 Global symbol "$joe" requires explicit package name at ./abc line 2.
139 Global symbol "$joe" requires explicit package name at abc.pm line 2.
145 package Burp;
156 Global symbol "$f" requires explicit package name at abc.pm line 3.
157 Global symbol "$k" requires explicit package name at abc.pm line 3.
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/NEXT/t/
Dunseen.t13 package A;
18 package B;
22 package C;
26 package D;
30 package main;
40 package Diamond::Base;
48 package Diamond::Left; @ISA = qw[Diamond::Base];
49 package Diamond::Right; @ISA = qw[Diamond::Base];
50 package Diamond::Top; @ISA = qw[Diamond::Left Diamond::Right];
52 package main;
/mirbsd/src/gnu/usr.bin/perl/t/op/
Dmethod.t163 package A1;
165 package A2;
167 package main;
189 $@ =~ /^\QCan't locate object method "foo" via package "E::B" at/ ? 1 : $@}, 1);
194 $@ =~ /^\QCan't locate object method "foo" via package "E::D" (perhaps / ? 1 : $@}, 1);
200 $@ =~ /^\QCan't locate object method "foo" via package "E::F" at/ ? 1 : $@}, 1);
223 $@ =~ /^\QCan't locate object method "boogie" via package "Foo" (perhaps / ? 1 : $@}, 1);
264 package main;
266 package Amajor;
270 package Bminor;
[all …]
Duniversal.t19 package Human;
22 package Female;
25 package Alice;
34 package Cedric;
40 package Programmer;
46 package main;
87 package Alice;
164 package Pickup;
177 package HumanTie;
Dbless.t12 my($object, $package, $type) = @_;
13 print "# $object $package $type\n";
14 is(ref($object), $package);
15 my $r = qr/^\Q$package\E=(\w+)\(0x([0-9a-f]+)\)$/;
79 package F;
120 package H4;
/mirbsd/src/gnu/usr.bin/perl/pod/
Dperlbot.pod25 inherited, when the type of $self is valid but its package isn't what you
55 The object is the namespace. Make package globals accessible via the
56 object. This will remove the guess work about the symbol's home package.
73 Don't assume you know the home package of a method. You're making it
83 package Foo;
95 package Bar;
106 package main;
120 package Foo;
129 package main;
142 package Bar;
[all …]
Dperlmod.pod8 X<package> X<namespace> X<variable, global> X<global variable> X<global>
12 really no such thing as a global variable in Perl. The package
14 namespace. The scope of the package declaration is from the
19 default to the main package instead of the current one as described
20 below. A package statement affects only dynamic variables--including
24 switch into a package in more than one place; it merely influences
27 by prefixing the identifier with the package name and a double
28 colon: C<$Package::Variable>. If the package name is null, the
29 C<main> package is assumed. That is, C<$::sail> is equivalent to
32 The old package delimiter was a single quote, but double colon is now the
[all …]
/mirbsd/src/gnu/usr.bin/perl/t/lib/warnings/
D9enabled6 package abc ;
20 package abc ;
34 package abc ;
76 package abc ;
93 package abc ;
112 package abc ;
129 package abc ;
148 package abc ;
154 package def;
167 package abc ;
[all …]
/mirbsd/src/gnu/usr.bin/perl/t/run/
Dfresh_perl.t84 Can't call method "ref" without a package or object reference at - line 1.
100 package N;
126 package FOO;sub new {bless {FOO => BAR}};
127 package main;
166 package FAKEARRAY;
201 package foo;
390 package X;
393 package main;
398 package X;
401 package main;
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/DBM_Filter/t/
D01error.t36 $filter = "package DBM_Filter::$name ;\n$filter"
37 unless $filter =~ /^\s*package/ ;
80 package DBM_Filter::bad1 ;
89 package DBM_Filter::bad2 ;
103 package DBM_Filter::bad3 ;
118 package DBM_Filter::bad4 ;
132 package DBM_Filter::bad5 ;
146 package DBM_Filter::bad6 ;
160 package DBM_Filter::bad7 ;
174 package DBM_Filter::bad8 ;
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/warnings/
Dregister.pm38 my $package = (caller(0))[0];
39 if (! defined $warnings::Bits{$package}) {
40 $warnings::Bits{$package} = mkMask($warnings::LAST_BIT);
42 $warnings::Offsets{$package} = $warnings::LAST_BIT ++;
46 $warnings::DeadBits{$package} = mkMask($warnings::LAST_BIT);
/mirbsd/src/gnu/usr.bin/perl/ext/threads/t/
Dthread.t127 package Test1;
133 package main;
170 package A;
174 package A1;
179 package A2;
184 package B;
188 package B1;
193 package B2;
198 package C;
202 package C1;
[all …]
/mirbsd/src/gnu/usr.bin/perl/t/comp/
Dpackage.t8 package xyz;
15 package ABC;
36 package ABC;
43 package main;
50 package PQR;
/mirbsd/src/gnu/usr.bin/binutils/opcodes/
Dconfig.in37 /* Name of package */
40 /* Define to the address where bug reports for this package should be sent. */
43 /* Define to the full name of this package. */
46 /* Define to the full name and version of this package. */
49 /* Define to the one symbol short name of this package. */
52 /* Define to the version of this package. */
58 /* Version number of package */
/mirbsd/src/gnu/usr.bin/perl/lib/Attribute/Handlers/
DREADME10 This module, when inherited by a package, allows that package's class to
12 and subroutines subsequently defined in that package, or in packages
13 derived from that package may be given attributes with the same names as
19 package UNIVERSAL;
32 package main;
38 package Other;

12345678910>>...21