view release on metacpan or  search on metacpan

lib/Acme/Ook.pm  view on Meta::CPAN

    }
    return '{my($Ook,@Ook);local$^W = 0;BEGIN{eval{require bytes;bytes::import()}}' . $prog . '}';
}

sub Ook {
    eval $_[0]->optimise(&compile);
}

sub new {
    my $class = shift;
    bless \$_[0], ref $class || $class;
}

1;
__END__
=pod

=head1 NAME

Acme::Ook - the Ook! programming language

t/hello.t  view on Meta::CPAN

$Ook->Ook($ook);
# Copy this then undef $out to avoid untie attempted while 1 inner references
# warning from perl pre 5.8
my $output = $$out;
undef $out;
untie *STDOUT;
print $output eq "Hello World!" ? "ok 1\n" : "not ok 1 # $output\n";

package FakeOut;
sub TIEHANDLE {
  bless(\(my $text), $_[0]);
}
sub clear {
  ${ $_[0] } = '';
}
sub PRINT {
  my $self = shift;
  $$self .= join('', @_);
}