Lines Matching +full:x +full:- +full:whatever
1 #!/usr/bin/perl -w
32 return grep { ($fields::attr{$base}[$fields->{$_}] & $mask) == $mask}
42 eval q(my Foo $obj = Foo->new; $obj->{notthere} = "");
47 foreach (Foo->new) {
49 my %test = ( Pants => 'Whatever', _no => 'Yeah',
53 $obj->{Pants} = 'Whatever';
54 $obj->{_no} = 'Yeah';
58 is($obj->{$k}, $v);
64 return if $_[0] =~ /^Pseudo-hashes are deprecated/
69 is( $phash->{rank}, "Captain" );
72 like $@, qr/^Pseudo-hashes have been removed from Perl/;
84 my Foo::Autoviv $a = Foo::Autoviv->new();
85 $a->{foo} = ['a', 'ok', 'c'];
86 $a->{bar} = { A => 'ok' };
87 is( $a->{foo}[1], 'ok' );
88 is( $a->{bar}->{A},, 'ok' );
104 my $x = Test::FooBar->new( a => 1, b => 2);
106 is(ref $x, 'Test::FooBar', 'x is a Test::FooBar');
107 ok(exists $x->{a}, 'x has a');
108 ok(exists $x->{b}, 'x has b');
112 $x->{a} = __PACKAGE__;
113 ok eval { delete $x->{a}; 1 }, 'deleting COW values' or diag $@;
114 $x->{a} = __PACKAGE__;
115 ok eval { %$x = (); 1 }, 'clearing a restr hash containing COWs' or diag $@;