Skip to content

Instantly share code, notes, and snippets.

View jjn1056's full-sized avatar

John Napiorkowski jjn1056

View GitHub Profile
package Example::Controller::Register;
use Moose;
use MooseX::MethodAttributes;
use Example::Syntax;
extends 'Example::Controller';
has registration => (is=>'ro', lazy=>1, default=>sub($self) { $self->ctx->users->registration } );
has view => (is=>'ro', lazy=>1, default=>sub($self) { $self->ctx->view('HTML::Register', registration => $self->registration } );
package Example::View::HTML::Todos;
use Moose;
use Example::Syntax;
use Valiant::HTML::TagBuilder 'div', 'fieldset', 'table', 'thead','trow', 'tbody', 'td', 'th', 'a', 'b', 'u', ':utils';
use Valiant::HTML::Form 'form_for';
use CatalystX::Wire 'wire', 'Controller';
extends 'Example::View::HTML';
package MyApp::Controller::Account;
sub update_account
:Does(RequestModel)
:RequestModel(AccountRequest)
:Does(RenderErrors)
:Errors(BadCSRFToken, InvalidJSON)
($self, $c, $request)
{
## etc
package Example::Controller::Register;
use Moose;
use MooseX::MethodAttributes;
use Example::Syntax;
extends 'Example::ControllerPerRequest',
'Example::ViewModelController';
has registration => (
package Example::Controller::Todos;
use Moose;
use MooseX::MethodAttributes;
use Example::Syntax;
use CatalystX::Controller::ACCEPT_CONTEXT::DependencyInjectionImports;
use HTTP::Status 'HTTP_OK', 'HTTP_BAD_REQUEST';
use Example::Types 'TodoResultset', 'TodoResult';
extends 'CatalystX::Controller::ACCEPT_CONTEXT';
package Example::Controller::Todos;
use Moose;
use MooseX::MethodAttributes;
use Example::Syntax;
extends 'Catalyst::Controller';
sub root :Chained(/auth) PathPart('todos') CaptureArgs(0) ($self, $c) {
$c->send(my $list = $c->user->todos);
package Example::Controller::Todos;
use Moose;
use MooseX::MethodAttributes;
use Example::Syntax;
extends 'Catalyst::Controller';
sub root :Chained(/auth) PathPart('todos') CaptureArgs(0) ($self, $c) { }
package Example::Controller::Register;
use Moose;
use MooseX::MethodAttributes;
use Example::Syntax;
extends 'Catalyst::ControllerPerRequest';
has person => (
is=>'ro',
use warnings;
use strict;
use Class::Method::Modifiers;
sub myfunc1 {
return join(' ', @_);
}
sub myfunc2 {
return join(' ', @_) .' | '. myfunc1('a','b')
package Local::MyApp::Model::User;
use Moose;
use Valiant::Params -types;
has 'first_name' => (is=>'ro', required=>1, param=>1);
has 'last_name' => (is=>'ro', required=>1, param=>1);
has 'profile' => (is=>'ro', required=>1, param=>{type=>'::Profile'});
sub register_type {