1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
#!/usr/bin/env perl
#
# Test re-realization
#
use strict;
use warnings;
use Test;
use lib 't', '.', 't/testmods', 'testmods';
use C::D::E;
BEGIN { plan tests => 8 }
my $warntxt;
sub catchwarn {$warntxt = "@_"};
# Autoload via C::D because of request from A::B
my $obj = C::D->new;
my $copy = $obj;
{ local $SIG{__WARN__} = \&catchwarn;
ok($obj->a_b eq 'a_b'); # triggers autoload
}
ok($warntxt, qr/^Realization of C::D /);
ok(ref $obj eq 'A::B');
ok(ref $copy eq 'C::D');
{ local $SIG{__WARN__} = \&catchwarn;
ok($copy->a_b eq 'a_b'); # triggers autoload for the second time
}
#warn "$warntxt\n";
ok($warntxt =~ /^Attempt to realize object again: old reference caught at/);
ok(ref $copy eq 'A::B');
ok($copy eq $obj);
|
