summaryrefslogtreecommitdiff
path: root/lib/MooseX/Net/API/Meta
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lib/MooseX/Net/API/Meta/Method.pm19
1 files changed, 19 insertions, 0 deletions
diff --git a/lib/MooseX/Net/API/Meta/Method.pm b/lib/MooseX/Net/API/Meta/Method.pm
index 29be4fc..9a9ab09 100644
--- a/lib/MooseX/Net/API/Meta/Method.pm
+++ b/lib/MooseX/Net/API/Meta/Method.pm
@@ -69,6 +69,25 @@ has required => (
auto_deref => 1,
required => 0,
);
+has documentation => (
+ is => 'ro',
+ isa => 'Str',
+ lazy => 1,
+ default => sub {
+ my $self = shift;
+ my $doc;
+ $doc .= "name: " . $self->name . "\n";
+ $doc .= "description: " . $self->description . "\n"
+ if $self->has_description;
+ $doc .= "method: " . $self->method . "\n";
+ $doc .= "path: " . $self->path . "\n";
+ $doc .= "arguments: " . join(', ', $self->params) . "\n"
+ if $self->params;
+ $doc .= "required: " . join(', ', $self->required) . "\n"
+ if $self->required;
+ $doc;
+ }
+);
before wrap => sub {
my ($class, %args) = @_;