snarkyboojum

$ ./tardis -e 'my $a = 5; my $b = 2; { my $c = 6 }'
# Compiling '-e'...
# Running...
{"main_1" => {"\$c" => {"type" => "container", "n" => 2}}, "main" => {"\$a" => {"type" => "container", "n" => 0}, "\$b" => {"type" => "container", "n" => 1}}}
["Any()", "Any()", "Any()"]
{"main_1" => {"\$c" => {"type" => "container", "n" => 2}}, "main" => {"\$a" => {"type" => "container", "n" => 0}, "\$b" => {"type" => "container", "n" => 1}}}
[5, "Any()", "Any()"]
{"main_1" => {"\$c" => {"type" => "container", "n" => 2}}, "main" => {"\$a" => {"type" => "container", "n" => 0}, "\$b" => {"type" => "container", "n" => 1}}}
[5, 2, "Any()"]
{"main_1" => {"\$c" => {"type" => "container", "n" => 2}}, "main" => {"\$a" => {"type" => "container", "n" => 0}, "\$b" => {"type" => "container", "n" => 1}}}

snarkyboojum

$ alpha tardis -e 'my $a = 5; my $b = 6;'
# Compiling '-e'...
# Running...
Got block: main
Got variable: $a
Got variable: $b
Got block: main
Got variable: $a
Got variable: $b
Got block: main

snarkyboojum

$ alpha tardis -e 'my $a = 5; my $b = 6; {};'
# Compiling '-e'...
# Running...
# Finished. Ticks: 0..2
> look
main:
{
  $a = Any()
  $b = Any()
}

snarkyboojum

From 4fcb99cfc175509d5e8950155cea45442c72837b Mon Sep 17 00:00:00 2001
From: snarkyboojum <snarkyboojum@gmail.com>
Date: Tue, 11 May 2010 18:48:10 +1000
Subject: [PATCH] [docs/running.pod] Added valid --target stages

---
 docs/running.pod |   10 ++++++++++
 1 files changed, 10 insertions(+), 0 deletions(-)

diff --git a/docs/running.pod b/docs/running.pod

snarkyboojum

use v6;

use Test;
plan *;

use Tardis;
use Yapsi;

my Yapsi::Compiler  $c .= new;
my Tardis::Debugger $d .= new;

snarkyboojum

# http://perl6advent.wordpress.com/2009/12/05/day-5-metaoperator/

use v6;
use Test;

plan(17);

my $a = 4;
my $b = 2;

snarkyboojum

# http://perl6advent.wordpress.com/2009/12/06/day-6-going-into-hyperspace/

use v6;
use Test;

plan(14);

my @a = 1, 2, 3, 4;
my @b = 3, 1;
my @c = 3, 1, 3, 1;

snarkyboojum

# http://perl6advent.wordpress.com/2009/12/08/day-8-comb-your-constraints/

use v6;
use Test;

plan 6;

multi sub very_odd(Int $odd where {$odd % 2}) { Bool::True }
multi sub very_odd(Int $odd) { Bool::False }

snarkyboojum

Have you used Pugs?
Have you used Rakudo?
How many implementations of Perl 6 are you aware of? (list them)
Have you submitted a bug report for Pugs/Rakudo/Perl 6 specs?
Have you patched Rakudo?
Have you read the Perl 6 specs?
Have you contributed to the Perl 6 specs?
Have you contributed to the Perl 6 test suite?
Have you written a Perl 6 module?
Have you published a Perl 6 module? (on GitHub, Gitorious etc)

snarkyboojum

# http://perl6advent.wordpress.com/2009/12/17/day-17-making-snowmen/

use v6;
use Test;

plan 1;

my $height = @*ARGS[0] // 31;
my $width = $height;
my $max_iterations = 50;