File Coverage

blib/lib/Mojolicious/Plugin/Util/Endpoint/endpoints.pm

Criterion	Covered	Total	%
statement	6	17	35.2
branch	0	2	0.0
condition			n/a
subroutine	2	3	66.6
pod	1	1	100.0
total	9	23	39.1

package Mojolicious::Plugin::Util::Endpoint::endpoints;
use Mojo::Base 'Mojolicious::Command';

use Getopt::Long qw/GetOptions :config no_auto_abbrev no_ignore_case/;

has description => "Show available endpoints.\n";
has usage       => <<"EOF";
usage: $0 endpoints

  perl app.pl endpoints

EOF


# Run endpoints
sub run {
  my $self = shift;

  # Options
  local @ARGV = @_;

  my $c = $self->app->build_controller;
  $c->app($self->app);

  # Get endpoints
  my $endpoints = $c->get_endpoints;

  # No endpoints
  return unless $endpoints;

  # Print all endpoints
  foreach my $name (sort { $a cmp $b } keys %$endpoints) {
    printf " %-20s %s\n", qq{"$name"}, $endpoints->{$name};
  };
  print "\n";

  return;
};


1;


__END__