tene

use v6;
our @frames;

sub show(&code) is export() {
    new_buffer_frame();
    &code();
    return end_buffer_frame();
}

sub ul(&c) is export() {

tene

.namespace []
.sub "_block11" :main :anon :subid("10_1237583515")
    .param pmc param_32 :slurpy
    .const 'Sub' $P34 = "13_1237583515" 
    capture_lex $P34
    find_name $P13, "!UNIT_START"
    .const 'Sub' $P15 = "11_1237583515" 
    .lex "@_", param_32
    .tailcall $P13($P15, param_32)

tene

use Tags;

say show {
    html {
        head { title { 'Tags Demo' } }
        body {
            outs "hi";
            ul {
                for 1..10 {
                    li { $_ }

tene

    case $rootdev in
        /dev/disk/by-name/*)
            rootdevid=${rootdev#/dev/disk/by-name/}
            rootdevid=${rootdevid%-part*}
            ;;
        /dev/md*)
            md_dev=$rootdev
            md_minor=${rootdev#/dev/md}
            ;;
        /dev/*)

tene

#!/usr/bin/perl -w

use strict;
use Net::SNMP;

my $session = Net::SNMP->session (-hostname => "serenity", -community => "public");

die("No session!\n") if (!defined($session));

my $ifDescr = "1.3.6.1.2.1.2.2.1.2.1";

tene

#!/usr/bin/perl6

use Net::SNMP;

my $session = Net::SNMP->session(:hostname<serenity>, :community<public>);

die("No session!") unless $session;

my $ifDescr = "1.3.6.1.2.1.2.2.1.2.1";
my $ifInOctets = "1.3.6.1.2.1.2.2.1.10.1";

tene

use HTTP::Daemon;
use Tags;

sub request($c) {
    my $r = $c.get_request();
    if $r.req_method eq 'GET' {
        given $r.url.path {
            when '/'             { main_page( $c, $r ); }
        }
    }

tene

use v6;

grammar XML {
    regex TOP { ^ <pi>* <xmlcontent>+ {*} $ };

    token xmlcontent {
        | <node>           {*} #= node
        | <empty>          {*} #= empty
        | <content>        {*} #= content
    };

tene

module Foo::EXPORT::DEFAULT { }; # work around a different rakudobug
module Foo {
    our @a;
    ::Foo::EXPORT::DEFAULT<!sub_trait_broken> = sub ($trait, $block, $arg) {
        @a.push({:block($block)});
    };
}

tene

.HLL 'lol'

.sub main :main
    load_bytecode 'perl6.pbc'
.end