| /netvirt/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;
|
| /netvirt/usr/src/cmd/tnf/prex/ |
| new.h | 29 #pragma ident "@(#)new.h 1.9 05/06/08 SMI"
45 #define new(t) ((t *) (new_alloc(sizeof (t)))) macro
|
| /netvirt/usr/src/cmd/perl/5.6.1/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]] )
135 sub new { subroutine
139 or croak "usage: new $class [FILENAME [,MODE [,PERMS]]]";
140 my $fh = $class->SUPER::new();
|
| /netvirt/usr/src/cmd/perl/5.6.1/distrib/lib/CGI/ |
| Fast.pm | 49 # New is slightly different in that it calls FCGI's
51 sub new { subroutine
60 return $CGI::Q = $self->SUPER::new($initializer, @param);
73 while (new CGI::Fast) {
128 while ($q = new CGI::Fast) {
132 Each time there's a new request, CGI::Fast returns a
134 waits in the call to new(). When the server requests that
135 your script be terminated, new() will return undef. You can
136 of course exit earlier if you choose. A new version of the
144 while (new CGI::Fast)
[all...] |
| /netvirt/usr/src/cmd/perl/5.6.1/distrib/lib/ |
| SelectSaver.pm | 12 my $saver = new SelectSaver(FILEHANDLE);
18 my $saver = new SelectSaver;
19 # new handle may be selected, or not
26 was selected when it was created. If its C<new> method gets an extra
39 sub new { subroutine
40 @_ >= 1 && @_ <= 2 or croak 'usage: new SelectSaver [FILEHANDLE]';
|
| Shell.pm | 9 sub new { bless \$VERSION, shift } # Nothing better to bless subroutine
125 Subject: a new module I just wrote
188 my $sh = Shell->new;
|
| /netvirt/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;
|
| /netvirt/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();
|
| /netvirt/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/ |
| Fast.pm | 49 # New is slightly different in that it calls FCGI's
51 sub new { subroutine
60 return $CGI::Q = $self->SUPER::new($initializer, @param);
73 while (new CGI::Fast) {
128 while ($q = new CGI::Fast) {
132 Each time there's a new request, CGI::Fast returns a
134 waits in the call to new(). When the server requests that
135 your script be terminated, new() will return undef. You can
136 of course exit earlier if you choose. A new version of the
144 while (new CGI::Fast)
[all...] |
| /netvirt/usr/src/cmd/perl/5.8.4/distrib/lib/Digest/t/ |
| base.t | 12 sub new { subroutine
33 my $ctx = LenDigest->new;
|
| /netvirt/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();
|
| /netvirt/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');
|
| /netvirt/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);
|
| /netvirt/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)
|
| /netvirt/usr/src/lib/libc/port/gen/ |
| addsev.c | 48 void *new; local
69 /* Allocate new entry */
70 new = libc_realloc(__pfmt_sev_tab,
72 if (new == NULL) {
77 __pfmt_sev_tab = new;
88 new = libc_realloc(__pfmt_sev_tab[i].string, strlen(string) + 1);
89 if (new == NULL) {
94 __pfmt_sev_tab[i].string = new;
|
| ualarm.c | 33 struct itimerval new, old; local
35 new.it_interval.tv_usec = reload % USPS;
36 new.it_interval.tv_sec = reload / USPS;
38 new.it_value.tv_usec = usecs % USPS;
39 new.it_value.tv_sec = usecs / USPS;
41 if (setitimer(ITIMER_REAL, &new, &old) != 0)
|
| /netvirt/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/t/ |
| Mod_EUCJP.pm | 5 sub new { subroutine
|
| /netvirt/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;
|
| /netvirt/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
|
| /netvirt/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); };
|
| /netvirt/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),")";
|
