Lines Matching refs:My

6 package My::Class; {
23         return 'My::Class->jinx';
27 package My::Sub; {
28     use Object::InsideOut qw(My::Class);
32         return 'My::Sub->jinx';
37         return 'My::Sub->foo';
41 package My::Bar; {
42     use Object::InsideOut qw(My::Class);
53 package My::Baz; {
54     use Object::InsideOut qw(My::Bar);
57 package My::MT; {
118     $method = My::Class->can('foo');
119     ok($method                                 => 'My::Class->foo()');
120     is(My::Class->foo(),     'My::Class->foo'  => 'Direct My::Class->foo()');
121     is(My::Class->$method(), 'My::Class->foo'  => 'Indirect My::Class->foo()');
123     $method = My::Sub->can('foo');
124     ok($method                             => 'My::Sub->foo()');
125     is(My::Sub->foo(),     'My::Sub->foo'  => 'Direct My::Sub->foo()');
126     is(My::Sub->$method(), 'My::Sub->foo'  => 'Indirect My::Sub->foo()');
128     $method = My::Sub->can('bar');
129     ok($method                             => 'My::Sub->bar()');
130     is(My::Sub->bar(),     'My::Sub->bar'  => 'Direct My::Sub->bar()');
131     is(My::Sub->$method(), 'My::Sub->bar'  => 'Indirect My::Sub->bar()');
133     $method = My::Bar->can('foo');
134     ok($method                     => 'My::Bar can foo()');
135     is(My::Bar->foo(),     'BOOM'      => 'Direct My::Bar->foo()');
136     is(My::Bar->$method(), 'BOOM'      => 'Indirect My::Bar->foo()');
138     $method = My::Bar->can('bar');
139     ok($method                     => 'My::Bar can bar()');
140     is(My::Bar->bar(),     'My::Bar->bar'  => 'Direct My::Bar->bar()');
141     is(My::Bar->$method(), 'My::Bar->bar'  => 'Indirect My::Bar->bar()');
143     $method = My::Baz->can('foo');
144     ok($method                     => 'My::Baz can foo()');
145     is(My::Baz->foo(),     'BOOM'      => 'Direct My::Baz->foo()');
146     is(My::Baz->$method(), 'BOOM'      => 'Indirect My::Baz->foo()');
148     $method = My::Baz->can('bar');
149     ok($method                     => 'My::Baz can bar()');
150     is(My::Baz->bar(),     'My::Baz->bar'  => 'Direct My::Baz->bar()');
151     is(My::Baz->$method(), 'My::Baz->bar'  => 'Indirect My::Baz->bar()');
153     $method = My::MT->can('foo');
154     ok(!$method              => 'My::MT no can foo()');
155     eval { My::MT->foo() };
156     ok($@                    => 'No My::MT foo()');
158     my $x = My::Class->new();
160     @result = qw(My::Class->jinx);
163     my $z = My::Sub->new();
165     @result = qw(My::Sub->jinx My::Class->jinx);
168     is($x->dummy(), 'My::Class->dummy', 'Class automethod');
169     is($z->zebra(), 'My::Sub->zebra', 'Sublass automethod');
172     is($x->$y, 'My::Class->turtle', 'Class can+automethod');
175     is($z->$y, 'My::Sub->snort', 'Sublass can+automethod');
177     my $obj = My::Bar->new();
179     @result = qw(My::Class->jinx);
182     $obj = My::Bar->new();
183     is($obj->foom(), 'My::Bar->foom', 'Object automethod');
185     $obj = My::Baz->new();
186     is($obj->foom(), 'My::Baz->foom', 'Object automethod');