| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| SelfLoader.t | 26 sub new { bless {}, shift } subroutine
57 sub new { bless {}, shift }
85 $foo = new Foo;
105 my $foo = new Foo;
139 $bar = new Bar;
|
| Digest.pm | 17 sub new subroutine
39 return $class->new(@args, @_);
48 $class->new($algorithm, @_);
61 $md5 = Digest->new("MD5");
62 $sha1 = Digest->new("SHA-1");
63 $sha256 = Digest->new("SHA-256");
64 $sha384 = Digest->new("SHA-384");
65 $sha512 = Digest->new("SHA-512");
130 =item $ctx = Digest->new(XXX => $arg,...)
132 =item $ctx = Digest::XXX->new($arg,...
[all...] |
| SelectSaver.pm | 14 my $saver = new SelectSaver(FILEHANDLE);
20 my $saver = new SelectSaver;
21 # new handle may be selected, or not
28 was selected when it was created. If its C<new> method gets an extra
41 sub new { subroutine
42 @_ >= 1 && @_ <= 2 or croak 'usage: new SelectSaver [FILEHANDLE]';
|
| Shell.pm | 11 sub new { bless \my $foo, shift } subroutine
133 Subject: a new module I just wrote
199 my $sh = Shell->new;
|
| /onnv/onnv-gate/usr/src/cmd/tnf/prex/ |
| new.h | 45 #define new(t) ((t *) (new_alloc(sizeof (t)))) macro
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/t/ |
| overload.t | 23 sub new { bless { foo => "bar" }, shift } subroutine
28 my $f = Foo->new;
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/IO/lib/IO/ |
| File.pm | 13 $fh = new IO::File;
19 $fh = new IO::File "> file";
25 $fh = new IO::File "file", "r";
31 $fh = new IO::File "file", O_WRONLY|O_APPEND;
52 =item new ( FILENAME [,MODE [,PERMS]] )
140 sub new { subroutine
144 or croak "usage: new $class [FILENAME [,MODE [,PERMS]]]";
145 my $fh = $class->SUPER::new();
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/ |
| Fast.pm | 46 # New is slightly different in that it calls FCGI's
48 sub new { subroutine
58 return $CGI::Q = $self->SUPER::new($initializer, @param);
71 while (new CGI::Fast) {
111 while ($q = new CGI::Fast) {
115 Each time there's a new request, CGI::Fast returns a
117 waits in the call to new(). When the server requests that
118 your script be terminated, new() will return undef. You can
119 of course exit earlier if you choose. A new version of the
127 while (new CGI::Fast)
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Digest/t/ |
| base.t | 12 sub new { subroutine
33 my $ctx = LenDigest->new;
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Hash/ |
| Util.t | 108 is( keys %hash, 0, 'lock_keys() w/keyset shouldnt add new keys' );
124 is( keys %hash, 3, 'lock_keys() w/keyset didnt add new keys' );
138 is( $@, sprintf("Hash has key 'bar' which is not in the new key ".
300 sub new { subroutine
307 my $a = Minder->new();
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
| More.t | 127 is( Test::Builder->new, Test::More->builder, 'builder()' );
143 sub new { bless {} } subroutine
145 isa_ok( Wibble->new, 'Wibblemeister' );
|
| ok_obj.t | 17 sub new { bless {}, shift } subroutine
26 ok(my $foo = Foo->new, 'created Foo object');
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/Math/BigFloat/ |
| Subclass.pm | 24 sub new subroutine
33 my $self = Math::BigFloat->new($value,$a,$p,$round_mode);
|
| /onnv/onnv-gate/usr/src/lib/libbc/libc/gen/common/ |
| ualarm.c | 24 struct itimerval new, old; local
26 new.it_interval.tv_usec = reload % USPS;
27 new.it_interval.tv_sec = reload / USPS;
29 new.it_value.tv_usec = usecs % USPS;
30 new.it_value.tv_sec = usecs / USPS;
32 if (setitimer(ITIMER_REAL, &new, &old) == 0)
|
| /onnv/onnv-gate/usr/src/lib/libc/port/gen/ |
| ualarm.c | 32 struct itimerval new, old; local
34 new.it_interval.tv_usec = reload % USPS;
35 new.it_interval.tv_sec = reload / USPS;
37 new.it_value.tv_usec = usecs % USPS;
38 new.it_value.tv_sec = usecs / USPS;
40 if (setitimer(ITIMER_REAL, &new, &old) != 0)
|
| addsev.c | 49 void *new; local
70 /* Allocate new entry */
71 new = libc_realloc(__pfmt_sev_tab,
73 if (new == NULL) {
78 __pfmt_sev_tab = new;
89 new = libc_realloc(__pfmt_sev_tab[i].string, strlen(string) + 1);
90 if (new == NULL) {
95 __pfmt_sev_tab[i].string = new;
|
| /onnv/onnv-gate/usr/src/lib/libparted/common/lib/ |
| strndup.c | 30 char *new = malloc (len + 1); local
32 if (new == NULL)
35 new[len] = '\0';
36 return memcpy (new, s, len);
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/t/ |
| Mod_EUCJP.pm | 5 sub new { subroutine
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
| code.t | 210 my $safe = new Safe;
243 my $safe = new Safe;
258 sub new { bless {}, shift } subroutine
268 my $safe = new MySafe;
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
| Installed.t | 114 # necessary to fool new()
117 my $realei = ExtUtils::Installed->new();
121 'new() should set Perl version from %Config' );
123 ok( exists $realei->{FakeMod}, 'new() should find modules with .packlists');
207 my $fakepak = Fakepak->new(102);
236 sub new { subroutine
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigFloat/ |
| Trace.pm | 24 sub new subroutine
32 my $self = Math::BigFloat->new($value,$a,$p,$round_mode);
37 print "MBF new '$value' => '$self' (",ref($self),")";
52 overload::constant float => sub { $self->new(shift); };
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigInt/ |
| Trace.pm | 24 sub new subroutine
32 my $self = Math::BigInt->new($value,$a,$p,$round_mode);
34 print "MBI new '$value' => '$self' (",ref($self),")";
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/ |
| Scalar.t | 15 sub new { 'Fooled you.' } subroutine
35 $scalar = Tie::StdScalar->new();
36 is( $$scalar, undef, 'used new(), default value is still undef' );
49 tie $scalar, 'Tie::StdScalar', DestroyAction->new();
64 # Tie::Scalar::TIEHANDLE should find and call TieTest::new and complain
65 is( tie( my $foo, 'TieTest'), 'Fooled you.', 'delegated to new()' );
66 like( $warn, qr/WARNING: calling TieTest->new/, 'caught warning fine' );
70 sub new { subroutine
|
| /onnv/onnv-gate/usr/src/cmd/mail/ |
| copyback.c | 36 * the mail file. First copy any new mail from
45 int new = 0; local
58 * Has new mail arrived?
66 * Append new mail assume only one new letter
81 new = 1;
173 if (new && !flgf) {
174 printf("New mail arrived\n");
|
| /onnv/onnv-gate/usr/src/cmd/man/src/util/nsgmls.src/include/ |
| xnew.h | 33 #include <new>
35 #include <new.h>
44 *operator new(size_t, void *p)
|
