File Coverage

blib/lib/Language/Kemuri.pm

Criterion	Covered	Total	%
statement	15	46	32.6
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	1	1	100.0
total	21	53	39.6

package Language::Kemuri;
use strict;
use warnings;
use Carp;
our $VERSION = '0.07';
use Exporter;
our @EXPORT_OK = qw/kemuri/;
use 5.010001;

sub kemuri {
    my $code = shift;

    my @stack;
    my $buf = "";

    for my $c ( split //, $code ) {
        given ($c) {
            when (q{`}) {
                push @stack, unpack("C*", reverse "Hello, world!");
            }
            when (q{"}) {
                my $x = pop @stack;
                push @stack, $x;
                push @stack, $x;
            }
            when (q{'}) {
                my $x = pop @stack;
                my $y = pop @stack;
                my $z = pop @stack;
                push @stack, $x;
                push @stack, $z;
                push @stack, $y;
            }
            when ('^') {
                my $x = pop @stack;
                my $y = pop @stack;
                push @stack, $x ^ $y;
            }
            when ('~') {
                my $x = pop @stack;
                push @stack, -($x+1);
            }
            when ('|') {
                $buf .= reverse map { chr($_ % 256) } @stack;
            }
            default {
                croak "unknown kemuri token $c in $code";
            }
        }
    }

    return $buf;
}

1;
__END__