TristinDavis

#!/usr/bin/env perl  
  
use DateTime;   
use Mojolicious::Lite;   
   
get '/' => 'index';   
   
get '/service/datetime' => sub {  
   my $self = shift;  
   my $dt   = DateTime->now;  

TristinDavis

#!/usr/bin/perl

use Mojolicious::Lite;

get '/' => { message => '' } => 'index';
post '/' => sub {
    my $self = shift;

    # getting params
    my $email    = $self->param('email')    || '';

TristinDavis

use Mojolicious::Lite;
use EV;
use AnyEvent;
use AnyEvent::Util;

get '/' => sub {
  my $self = shift;

  # Run Perl oneliner in separate process and capture STDOUT
  fork_call {

kentfredric

use strict;
use warnings;

use IO::Async::Channel;
use IO::Async::Loop;
use IO::Async::Routine;

my $loop = IO::Async::Loop->new();

{

TristinDavis

package PiffHop;

use strict;
use warnings;

use base 'Mojolicious';

# This method will run once at server start
sub startup {
    my $self = shift;

TristinDavis

package MyApp::Validation;
 
use Validation::Class;
use base 'Validation::Class';
 
# a validation rule
field 'login'  => {
    label      => 'user login',
    error      => 'login invalid',
    validation => sub {

TristinDavis

package MyApp::Validation;
 
use Validation::Class;
use base 'Validation::Class';
 
# a validation rule
field 'login'  => {
    label      => 'user login',
    error      => 'login invalid',
    validation => sub {

TristinDavis

#!/usr/bin/env perl
use common::sense;
use lib qw(../.. /tk/lib /tk/mojo2/lib);

use ojo;
use Util;
use Unicode::Normalize 'NFD';
use Data::Dumper;

my $conf = {

TristinDavis

use Mojolicious::Lite;

get '/tasks' => sub {
	my $self = shift;
	
	$self->stash(
		tasks => [
			map { [ split /\s+/ ] }
			split /\n/, qx(ps axh -o comm,stat,\%cpu,nice,pid,rss,user)
		]

TristinDavis

#!/usr/bin/env perl

use Mojolicious::Lite;

get '/'   => 'index';
get '/ok' => 'index_ok';

use Test::More;
plan tests => 6;