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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
#!/usr/bin/env perl
#
# Test the autoloading() where becomes => STRING
#
use strict;
use warnings;
use Test;
use lib 't', '.', 't/testmods', 'testmods';
use C::D::E;
BEGIN { plan tests => 17 }
my $warntxt;
sub catchwarn {$warntxt = "@_"};
# Autoload via C::D because of request from A::B
my $obj = C::D->new;
ok($obj->c_d eq 'c_d');
ok($obj->c eq 'c' );
{ 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');
# Autoload via C::D::E because of request from A::B
$obj = C::D::E->new;
ok($obj->c_d_e eq 'c_d_e');
ok($obj->c_d eq 'c_d');
ok($obj->c eq 'c' );
{ local $SIG{__WARN__} = \&catchwarn;
ok($obj->a_b eq 'a_b'); # triggers autoload
}
ok($warntxt, qr/^Realization of C::D::E /);
ok(ref $obj eq 'A::B');
# Autoload via C::D because of request from A
$obj = C::D->new;
{ local $SIG{__WARN__} = \&catchwarn;
ok($obj->a eq 'a'); # triggers autoload
}
ok($warntxt, qr/^Realization of C::D /);
ok(ref $obj eq 'A::B');
# Autoload via C::D::E because of request from A
$obj = C::D::E->new;
{ local $SIG{__WARN__} = \&catchwarn;
ok($obj->a eq 'a'); # triggers autoload
}
ok($warntxt, qr/^Realization of C::D::E /);
ok(ref $obj eq 'A::B');
|
