Home
last modified time | relevance | path

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

12345678910>>...29

/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/
H A 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 …]
H A 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 …]
H A 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 …]
H A Doverload.t8 package Oscalar;
42 package main;
118 eval q[ package Oscalar; use overload ('++' => sub { $ {$_[0]}++;$_[0] } ) ];
131 package Oscalar;
133 package main;
145 eval q[package Oscalar; use overload ('++' => sub { $ {$_[0]} += 2; $_[0] } ) ];
158 package Oscalar;
160 package main;
180 eval q[ package Oscalar; use overload ('=' => sub {$main::copies++;
181 package Oscalar;
[all …]
H A 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';
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/
H A 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 …]
H A 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 …]
H A 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;
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/
H A DConstant.t54 my $package = "ExtTest";
184 open(XS, "$package.xs") or die $!;
195 $regen = `$runperl -x $package.xs`;
198 print "not ok $realtest # $runperl -x $package.xs failed: $?\n";
255 my $package = shift;
265 'NAME' => "$package",
266 'VERSION_FROM' => "$package.pm", # finds \$VERSION
268 (#ABSTRACT_FROM => "$package.pm", # XXX add this
290 my ($name, $items, $export_names, $package, $header, $testfile, $num_tests)
295 C_constant ($package, undef, "IV", $types, undef, undef, @$items);
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/strict/
H A 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 …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/NEXT/t/
H A 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;
H A Dactuns.t13 package A;
18 package B;
22 package C;
26 package D;
30 package main;
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A 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 …]
H A Duniversal.t19 package Human;
22 package Female;
25 package Alice;
34 package Cedric;
40 package Programmer;
46 package main;
94 package Alice;
170 package Pickup;
183 package HumanTie;
H A Dbless.t11 my($object, $package, $type) = @_;
13 ref($object) eq $package
14 && "$object" =~ /^\Q$package\E=(\w+)\(0x([0-9a-f]+)\)$/
19 print "# $object $package $type\n";
79 package F;
121 package H4;
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/pod/
H A 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 …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/warnings/
H A 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 …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/run/
H A Dfresh_perl.t82 Can't call method "ref" without a package or object reference at - line 1.
98 package N;
124 package FOO;sub new {bless {FOO => BAR}};
125 package main;
164 package FAKEARRAY;
199 package foo;
388 package X;
391 package main;
396 package X;
399 package main;
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dpackage.t8 package xyz;
13 package ABC;
34 package ABC;
41 package main;
48 package PQR;
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/warnings/
H A 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);
/onnv-gate/usr/src/pkg/
H A DREADME.pkg30 building packages in ON. All package creation in ON is done using
42 per package. For most packaging changes you only need to add or
81 Compare the proto area against package definitions for
111 package dependencies will not be generated. This variable
130 The resulting package manifest after running pkgmogrify(1)
162 You can also use package names, or package names with ".pub"
164 publication of the specified package(s).
239 driver/crypto/dprov package.
246 file per package, including for multi-architecture packages. For
256 allows us to apply a set of macros and package transformations in
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/DBM_Filter/t/
H A 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 …]
/onnv-gate/usr/src/cmd/sgs/packages/common/
H A Dpkginfo.tmpl23 # This required package information file describes characteristics of the
24 # package, such as package abbreviation, full package name, package version,
25 # and package architecture.
39 DESC="OS-Net Static/Dynamic linker package"
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/Handlers/demo/
H A DDemo.pm9 my ($package, $symbol, $referent, $attr, $data, $phase) = @_;
23 my ($package, $symbol, $referent, $attr, $data) = @_;
30 my ($package, $symbol, $referent, $attr, $data) = @_;
37 my ($package, $symbol, $referent, $attr, $data) = @_;
44 my ($package, $symbol, $referent, $attr, $data) = @_;
/onnv-gate/usr/src/lib/libparted/common/lib/
H A Dversion-etc.c42 const char *command_name, const char *package, in version_etc_va() argument
59 fprintf (stream, "%s (%s) %s\n", command_name, package, version); in version_etc_va()
61 fprintf (stream, "%s %s\n", package, version); in version_etc_va()
166 const char *command_name, const char *package, in version_etc() argument
172 version_etc_va (stream, command_name, package, version, authors); in version_etc()

12345678910>>...29