/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | 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;
|
H A D | Digest.pm | 22 sub new subroutine 47 return $class->new(@args, @_); 56 $class->new($algorithm, @_); 69 $md5 = Digest->new("MD5"); 70 $sha1 = Digest->new("SHA-1"); 71 $sha256 = Digest->new("SHA-256"); 72 $sha384 = Digest->new("SHA-384"); 73 $sha512 = Digest->new("SHA-512"); 145 =item $ctx = Digest->new(XXX => $arg,...) 147 =item $ctx = Digest::XXX->new( [all...] |
H A D | 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]';
|
H A D | Shell.pm | 11 sub new { bless \my $foo, shift } subroutine 133 Subject: a new module I just wrote 199 my $sh = Shell->new;
|
/osnet-11/usr/src/lib/libcurses/screen/ |
H A D | setcurscreen.c | 48 setcurscreen(SCREEN *new) argument 52 if (new != SP) { 56 fprintf(outf, "setterm: old %x, new %x\n", rv, new); 59 SP = new; 60 if (new) {
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/Math/BigFloat/ |
H A D | Subclass.pm | 24 sub new subroutine 33 my $self = Math::BigFloat->new($value,$a,$p,$round_mode);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/t/ |
H A D | overload.t | 23 sub new { bless { foo => "bar" }, shift } subroutine 28 my $f = Foo->new;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/lib/IO/ |
H A D | 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();
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/ |
H A D | Fast.pm | 59 sub new { subroutine 70 return $CGI::Q = $self->SUPER::new($initializer, @param); 83 while (new CGI::Fast) { 122 while ($q = new CGI::Fast) { 126 Each time there's a new request, CGI::Fast returns a 128 waits in the call to new(). When the server requests that 129 your script be terminated, new() will return undef. You can 130 of course exit earlier if you choose. A new version of the 138 while (new CGI::Fast) { 199 while ($q = new CG [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Hash/ |
H A D | 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();
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
H A D | More.t | 127 is( Test::Builder->new, Test::More->builder, 'builder()' ); 143 sub new { bless {} } subroutine 145 isa_ok( Wibble->new, 'Wibblemeister' );
|
H A D | ok_obj.t | 17 sub new { bless {}, shift } subroutine 26 ok(my $foo = Foo->new, 'created Foo object');
|
/osnet-11/usr/src/lib/libc/capabilities/hrt/common/ |
H A D | map_hrt_info.c | 49 hrt_t *new; local 51 new = (hrt_t *)gethrt(); 52 if (new == NULL) 59 atomic_swap_ptr((volatile void *)&hrt, (void *)new);
|
/osnet-11/usr/src/lib/libparted/common/lib/ |
H A D | strndup.c | 32 char *new = malloc (len + 1); local 34 if (new == NULL) 37 new[len] = '\0'; 38 return memcpy (new, s, len);
|
/osnet-11/usr/src/grub/grub2/grub-core/gnulib/ |
H A D | strndup.c | 30 char *new = malloc (len + 1); local 32 if (new == NULL) 35 new[len] = '\0'; 36 return memcpy (new, s, len);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/t/ |
H A D | Mod_EUCJP.pm | 5 sub new { subroutine
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
H A D | code.t | 210 my $safe = new Safe; 243 my $safe = new Safe; 258 sub new { bless {}, shift } subroutine 268 my $safe = new MySafe;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Digest/t/lib/Digest/ |
H A D | Dummy.pm | 10 sub new { subroutine
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
H A D | 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
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigFloat/ |
H A D | 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); };
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigInt/ |
H A D | 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),")";
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/ |
H A D | 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
|
/osnet-11/usr/src/lib/libgen/common/ |
H A D | strtrns.c | 34 * in both `str' and `old' with the corresponding character from `new'. 39 strtrns(const char *str, const char *old, const char *new, argument 48 *r = new[o - old -1];
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/Math/BigInt/ |
H A D | Subclass.pm | 28 sub new subroutine 36 my $self = Math::BigInt->new($value,$a,$p,$round_mode);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/lib/IO/Socket/ |
H A D | UNIX.pm | 21 sub new { subroutine 24 return $class->SUPER::new(@_); 88 =item new ( [ARGS] ) 91 newly created symbol (see the C<Symbol> package). C<new>
|