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
70
71
72
73
74
75
76
|
#!/usr/bin/perl
use IO::File;
use IO::Socket;
use lib "lib";
use ClassStdChild;
use BlessParent;
my $io = IO::File->new();
my $cc = ClassStdChild->new({ attr2 => $io, cattr2 => BlessParent->new(), });
$cc->set_attr3(IO::Socket::INET->new());
# astart literal method of Class::Std child class
#my $c2 = ClassStdChild->
# aend include: new
# astart instance method of Class::Std child class
#$cc->
# aend equal: can cf_1 f_1 get_attr1 get_attr_second get_cattr1 get_cattr_second isa set_attr1 set_attr3 set_cattr1 set_cattr3
# astart super attribute of Class::Std child class
#$cc->get_attr1->
# aend include: ioctl seek fcntl
# astart super method of Class::Std child class
#$cc->get_attr_second->
# aend include: ioctl seek fcntl
# astart BlessParent attribute of Class::Std child class
#$cc->get_cattr_second->
# aend equal: can get_fuga get_hoge isa new set_fuga set_hoge
# astart super call method of Class::Std child class
#$cc->cf_1->
# aend include: accept listen
# astart initializer of Class::Std child class
#my $c2 = ClassStdChild->new({
# aend equal: attr1 attr2 cattr1 cattr2
# hstart instance method of Class::Std child class
#$cc->get_cattr1
# hend ^ get_cattr1 \s is \s Method \s of \s ClassStdChild
# hstart instance method of Class::Std parent class
#$cc->get_attr1
# hend ^ get_attr1 \s is \s Method \s of \s ClassStdParent
# mstart instance method of Class::Std child class
#$cc->get_cattr1
# mend ^ NAME: \s get_cattr1 $
# mend ^ RETURN: \s NoIdent \s As \s Unknown $
# mend ^ FILE: \s .+ /ClassStdChild.pm $
# mend ^ LINE: \s 0 $
# mend ^ COL: \s 0 $
# mstart instance method of Class::Std parent class
#$cc->get_attr1
# mend ^ NAME: \s get_attr1 $
# mend ^ RETURN: \s NoIdent \s As \s IO::File $
# mend ^ FILE: \s .+ /ClassStdParent.pm $
# mend ^ LINE: \s 0 $
# mend ^ COL: \s 0 $
# mstart instance own method of Class::Std child class
#$cc->cf_1
# mend ^ NAME: \s cf_1 $
# mend ^ RETURN: \s NoIdent \s As \s IO::Socket::INET $
# mend ^ FILE: \s .+ /ClassStdChild.pm $
# mend ^ LINE: \s 34 $
# mend ^ COL: \s 5 $
|
