blob: a7c01dacdad7c064abf50eeb7ba4b0320baf2aa6 (
plain)
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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
# You may distribute under the terms of either the GNU General Public License
# or the Artistic License (the same terms as Perl itself)
#
# (C) Paul Evans, 2011-2017 -- leonerd@leonerd.org.uk
package Tangence::Meta::Method 0.26;
use v5.14;
use warnings;
use Scalar::Util qw( weaken );
=head1 NAME
C<Tangence::Meta::Method> - structure representing one C<Tangence> method
=head1 DESCRIPTION
This data structure object stores information about one L<Tangence> class
method. Once constructed, such objects are immutable.
=cut
=head1 CONSTRUCTOR
=cut
=head2 new
$method = Tangence::Meta::Method->new( %args )
Returns a new instance initialised by the given arguments.
=over 8
=item class => Tangence::Meta::Class
Reference to the containing class
=item name => STRING
Name of the method
=item arguments => ARRAY
Optional ARRAY reference containing arguments as
L<Tangence::Meta::Argument> references.
=item ret => STRING
Optional string giving the return value type as a L<Tangence::Meta::Type>
reference
=back
=cut
sub new
{
my $class = shift;
my %args = @_;
$args{arguments} ||= [];
my $self = bless \%args, $class;
weaken $self->{class};
return $self;
}
=head1 ACCESSORS
=cut
=head2 class
$class = $method->class
Returns the class the method is a member of
=cut
sub class
{
my $self = shift;
return $self->{class};
}
=head2 name
$name = $method->name
Returns the name of the class
=cut
sub name
{
my $self = shift;
return $self->{name};
}
=head2 arguments
@arguments = $method->arguments
Return the arguments in a list of L<Tangence::Meta::Argument> references.
=cut
sub arguments
{
my $self = shift;
return @{ $self->{arguments} };
}
=head2 argtype
@argtypes = $method->argtypes
Return the argument types in a list of L<Tangence::Meta::Type> references.
=cut
sub argtypes
{
my $self = shift;
return map { $_->type } $self->arguments;
}
=head2 ret
$ret = $method->ret
Returns the return type as a L<Tangence::Meta::Type> reference or C<undef> if
the method does not return a value.
=cut
sub ret
{
my $self = shift;
return $self->{ret};
}
=head1 AUTHOR
Paul Evans <leonerd@leonerd.org.uk>
=cut
0x55AA;
|