Yet Another CPAN Grep

Catalyst-Model-MetaCPAN-Client ( L/LN/LNATION/Catalyst-Model-MetaCPAN-Client-0.03.tar.gz, LNATION, 2025; MetaCPAN )

Catalyst-Model-MetaCPAN-Client/lib/Catalyst/Model/MetaCPAN/Client.pm ( view source; MetaCPAN )

nt";

	...


	package TestApp::Controller::MetaCPAN;

	use Moose;
	use namespace::autoclean;
	use JSON;
	BEGIN {
		extends 'Catalyst::Controller';
	}

	sub author :Chained('/') :PathPart('author') :Ar

$self, $c, $arg) = @_;
		my $author = $c->model('MetaCPAN')->author($arg);
		$c->res->body(encode_json($author));
	}


Beta.

=cut

=head1 SUBROUTINES/METHODS

=head2 new

=cut

=head2 client

=cut

=