view release on metacpan or  search on metacpan

t/restify.t  view on Meta::CPAN

package My::Mojo::App::Base;
use Mojo::Base 'Mojolicious::Controller';

sub catchall {
  my ($self, $msg) = @_;
  my $id = $self->stash($self->name . '_id') // '';
  $self->render(text => "$msg,$id");
}

sub resource_lookup {1}
sub create          { shift->catchall('create') }
sub delete          { shift->catchall('delete') }
sub list            { shift->catchall('list') }
sub read            { shift->catchall('read') }
sub update          { shift->catchall('update') }

sub name {
  my $self = shift;
  my $name = $self->stash->{controller};
  $name =~ s,^.*\-,,;
  return $name;
}

1;

package My::Mojo::App::Under;
use Mojo::Base 'Mojolicious::Controller';

sub foo_bar {
  1;
}

sub users {
  1;
}

1;

package My::Mojo::App::Attach;
use Mojo::Base 'Mojolicious::Controller';

sub authenticate {1}

1;

package My::Mojo::App::Attach::GlobalUsers;
use Mojo::Base 'My::Mojo::App::Base';

1;

package My::Mojo::App::Attach::GlobalUsers::Roles;
use Mojo::Base 'My::Mojo::App::Base';

sub read {
  my $self = shift;
  $self->render(
    text => join ",",
    'read', $self->stash('global_users_id'), $self->stash('roles_id')
  );
}

1;

package My::Mojo::App::A;
use Mojo::Base 'My::Mojo::App::Base';

sub read {
  my $self = shift;
  $self->render(text => join ",", 'read', $self->restify->current_id);
}

1;

package My::Mojo::App::A::B;
use Mojo::Base 'My::Mojo::App::Base';