Skip to content

Instantly share code, notes, and snippets.

View ufobat's full-sized avatar

Martin Barth ufobat

  • Nürnberg, Germany
View GitHub Profile
> cat A.pm
class A { ... }
role R {
has A $!private;
method r {
self!s;
}
method !s {
perl6 bin/p6profiler-graphviz ../Bailador/03.sqlite3
DBDish::SQLite: Error: no such column: calls.callee_id (1)
in method handle-error at /home/martin/.rakudobrew/moar-2017.05/install/share/perl6/site/sources/4769381268B0D6F58811B3F7F14C81900BB376B3 (DBDish::SQLite::Connection) line 17
in method prepare at /home/martin/.rakudobrew/moar-2017.05/install/share/perl6/site/sources/4769381268B0D6F58811B3F7F14C81900BB376B3 (DBDish::SQLite::Connection) line 26
in sub MAIN at bin/p6profiler-graphviz line 9
in block <unit> at bin/p6profiler-graphviz line 6
Actually thrown at:
in method prepare at /home/martin/.rakudobrew/moar-2017.05/install/share/perl6/site/sources/4769381268B0D6F58811B3F7F14C81900BB376B3 (DBDish::SQLite::Connection) line 39
in sub MAIN at bin/p6profiler-graphviz line 9
@ufobat
ufobat / CacheObject.pm
Created April 21, 2017 12:36
mojo async psgi
package E2L::PSGI::Mojo::CacheObject;
use Moose;
use common::sense;
use namespace::autoclean;
use MooseX::StrictConstructor;
has cv => (
is => 'ro',
isa => 'AnyEvent::CondVar',
required => 1,
┌─[martin@psyche] - [~/.workspace/e2l] - [Di Apr 04, 18:10] > perl timer.pl
offset -4
offset -4
offset -3
offset -3
offset -2
offset -1
offset -0.5
offset -0.3
offset -0.2
┌─[martin@psyche] - [~/.workspace/p6/p6-XML-XPath] - [Mo Dez 19, 16:27]
└─[$] <git:(master*)> perl6 -Ilib -e 'use XML::XPath::Grammar; XML::XPath::Grammar.parse("/foo")'
TOP
> ?
r run (until breakpoint, if any)
<enter> single step
rf run until a match fails
r <name> run until rule <name> is reached
bp add <name> add a rule name breakpoint
bp list list all active rule name breakpoints
use v6.c;
unit class Dancr;
use Bailador;
use DBIish;
use LWP::Simple;
my %settings;
martin@psyche:~/.workspace/p6/zef$ perl6-gdb-m -Ilib bin/zef install .
================================================================================================
This is Rakudo Perl 6 running in the GNU debugger, which often allows the user to generate useful back-
traces to debug or report issues in Rakudo, the MoarVM backend or the currently running code.
This Rakudo version is 2016.09 built on MoarVM version 2016.09,
running on ubuntu (16.04.1.LTS.Xenial.Xerus) / linux (4.4.0.43.generic)
Type `bt full` to generate a backtrace if applicable, type `q` to quite or `help` for help.
------------------------------------------------------------------------------------------------
martin@psyche:~$ rakudobrew build zef
Ihr Branch ist auf dem selben Stand wie 'origin/master'.
Failed running /home/martin/.rakudobrew/bin/../moar-nom/install/bin/perl6 -Ilib bin/zef -v install . at /home/martin/.rakudobrew/bin/rakudobrew line 58.
main::run("/home/martin/.rakudobrew/bin/../moar-nom/install/bin/perl6 -I"...) called at /home/martin/.rakudobrew/bin/rakudobrew line 548
main::build_zef() called at /home/martin/.rakudobrew/bin/rakudobrew line 355
main::build_impl("zef", undef, "") called at /home/martin/.rakudobrew/bin/rakudobrew line 116
martin@psyche:~$ cd .rakudobrew/
.git/ bin/ git_reference/ moar-nom/
martin@psyche:~$ cd .rakudobrew/moar-nom/zef/
martin@thetis ~/.workspace/p6 % perl6 -Ip6-HTTP-Server-P6W/lib -IHTTP-Supply/lib -IBailador/lib -IVoteImproved/lib VoteImproved/bin/VoteImproved.p6
Entering the development dance floor: http://0.0.0.0:3000
invoking app with env:
{:HTTP_ACCEPT("text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8"), :HTTP_ACCEPT_ENCODING("gzip, deflate, sdch"), :HTTP_ACCEPT_LANGUAGE("de-DE,de;q=0.8,en-US;q=0.6,en;q=0.4"), :HTTP_CONNECTION("keep-alive"), :HTTP_COOKIE("bailador=46b4cdd812633dda9f700f8b74d04f33--9eba0c200c25f657c69d423abb75e5dd"), :HTTP_HOST("localhost:3000"), :HTTP_UPGRADE_INSECURE-REQUESTS("1"), :HTTP_USER_AGENT("Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.26 Safari/537.36"), :REQUEST_METHOD("GET"), :REQUEST_URI("/"), :SERVER_PROTOCOL("HTTP/1.1"), "p6w.input" => Supply.new}
Session ID HMAC mismatch - someone trying to guess session IDs
martin@thetis ~/.workspace/p6 % echo $?
141
martin@thetis ~/.workspace/p6 % perl6 -v
This is Rakudo version 201