use 5.010;
use strict;
our $VERSION = '0.10'; # VERSION
sub handle_list_subs {
my ($env) = @_;
my $ssu = $env->{"ss.request"}{uri};
return [400, "SS request URI not specified"] unless $ssu;
$ssu->list_subs();
}
1;
# ABSTRACT: List subroutines in a module
__END__
=pod
=head1 NAME
Sub::Spec::HTTP::Server::Command - List subroutines in a module
=head1 VERSION
version 0.10
=head1 SYNOPSIS
# used by Plack::Middleware::SubSpec::HandleCommand
=head1 DESCRIPTION
This module returns list of subroutines within a module. Will return 400 error
if module is not specified in URI.
=head1 AUTHOR
Steven Haryanto <stevenharyanto@gmail.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2011 by Steven Haryanto.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut