Skip to content

Instantly share code, notes, and snippets.

log

tonyo@enoch:~/projects/p6-h-s-r$ perl6 --ll-exception x.pl6
Cannot invoke this object (REPR: Null; VMNull)
   at /Users/tonyo/projects/p6-h-s-r/y/Y.pm6 (Y):6  (/Users/tonyo/projects/p6-h-s-r/y/.precomp/651DA045F6BA3FB0DDA33AD830613B52F79A9425.1500492012.29739/23/23EB4D3F4155395A74E9D534F97FF4C1908F5AAC:)
 from gen/moar/Metamodel.nqp:4033  (/Users/tonyo/projects/rakudobrew/moar-blead-nom/install/share/nqp/lib/Perl6/Metamodel.moarvm:enter)
 from SETTING::src/core/Routine.pm:85  (/Users/tonyo/projects/rakudobrew/moar-blead-nom/install/share/perl6/runtime/CORE.setting.moarvm:CALL-ME)
 from gen/moar/BOOTSTRAP.nqp:3001  (/Users/tonyo/projects/rakudobrew/moar-blead-nom/install/share/nqp/lib/Perl6/BOOTSTRAP.moarvm:)
 from x.pl6:9  (<ephemeral file>:<unit>)

Zef::API::Validator

unit module Zef::API::Validated;

multi sub trait_mod:<is>(Sub $s, :$validated!) is export {
  &$s.wrap(&validate-params);
}

sub validate-params($req, $res) {
use nqp;
use QAST:from<NQP>;
sub Slang::SQL::sql(Str $statement, @args?, $cb?) is export {
die '$*DB must be defined' if !defined $*DB;
$*DB.do($statement, @args), return if !defined $cb;
my $*STATEMENT = $statement;
my $sth = $*DB.prepare($statement);
$sth.execute(@args);
while (my $ROW = $sth.fetchrow_hashref) {
tonyo@local:~/projects/p6-db-orm-quicky$ curl 127.0.0.1:1666/search/HTTP::Server::Async ; echo
[
{
"commit":"1bfbc69a2cac37e598b1d6924eb3e05a3f42f01a",
"author":"github:tony-o",
"module":"HTTP::Server::Async",
"version":"0.1.3"
},
{
"commit":"6c2d30eac00d3959337457c86fede4b684f67464",
{
"perl" : "6.*",
"name" : "System::Query",
"version" : "0.1.0",
"description" : "A utility for collapsing JSON dependent upon certain environmental information",
"depends" : [],
"test-depends": ["JSON::Fast"],
"auth": "github:tony-o",
"provides" : {
"System::Query": "lib/System/Query.pm6"
my $prof = $orm.search('nickl', {
'-join' => {
'-table' => 'profile',
'-type' => 'inner',
'-on' => {
'uid' => 'id',
},
}
});
#!/usr/bin/env node
var input = require("input");
var await = require("asyncawait/await");
var async = require("asyncawait/async");
var playerNames = async(function(){
var first = await(input.text("Player 1 name:"));
var second = await(input.text("Player 2 name:"));
return [first, second];
var observeDOM = (function(){
var MutationObserver = window.MutationObserver || window.WebKitMutationObserver,
eventListenerSupported = window.addEventListener;
return function(obj, callback){
if( MutationObserver ){
var obs = new MutationObserver(function(mutations, observer){
if(mutations[0].addedNodes.length || mutations[0].removedNodes.length){
callback();
}
Lifting the server siege... done.
Transactions: 3256 hits
Availability: 100.00 %
Elapsed time: 59.98 secs
Data transferred: 0.02 MB
Response time: 0.18 secs
Transaction rate: 54.28 trans/sec
Throughput: 0.00 MB/sec
Concurrency: 9.98
2016-05-31 10:55:23.185 moar[20780:5233374] *** WARNING: Method userSpaceScaleFactor in class NSView is deprecated on 10.7 and later. It should not be used in new applications. Use convertRectToBacking: instead.
Native call expected return type with CPointer representation, but got a P6opaque
at perl#sources/24DD121B5B4774C04A7084827BFAD92199756E03 (NativeCall):301 (/Users/tonyo/.perl6/precomp/9F34DF395AD8B302D8F86B7BF988823BC830AE65.1459960632.24083/24/24DD121B5B4774C04A7084827BFAD92199756E03:CALL-ME)
from gen/moar/m-BOOTSTRAP.nqp:2841 (/Users/tonyo/.rakudobrew/moar-nom/install/share/nqp/lib/Perl6/BOOTSTRAP.moarvm:)
from e.pl6:25 (<ephemeral file>:<unit>)
from e.pl6:1 (<ephemeral file>:<unit-outer>)
from gen/moar/stage2/NQPHLL.nqp:1497 (/Users/tonyo/.rakudobrew/moar-nom/install/share/nqp/lib/NQPHLL.moarvm:eval)
from src/Perl6/Compiler.nqp:161 (/Users/tonyo/.rakudobrew/moar-nom/install/share/nqp/lib/Perl6/Compiler.moarvm:eval)
from gen/moar/stage2/NQPHLL.nqp:1700 (/Users/tonyo/.rakudobrew/moa