blob: f845553407206940011ac3eaca744d067928d6e2 (
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
|
# 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-2012 -- leonerd@leonerd.org.uk
package Tangence::Meta::Method;
use strict;
use warnings;
our $VERSION = '0.24';
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 $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 = $method->class
Returns the class the method is a member of
=cut
sub class
{
my $self = shift;
return $self->{class};
}
=head2 $name = $method->name
Returns the name of the class
=cut
sub name
{
my $self = shift;
return $self->{name};
}
=head2 @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 @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 = $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;
|
