view release on metacpan or  search on metacpan

NabeAtzz.xs  view on Meta::CPAN

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

static OP *(*PL_ppaddr_bak[OP_max + 1])(pTHX);

OP * aho(pTHX) {
    if (!(PL_op->op_type % 3)) PerlIO_printf(PerlIO_stderr(), "AHO: %d\n", PL_op->op_type);
    return PL_ppaddr_bak[PL_op->op_type](aTHX);
}

MODULE = Acme::NabeAtzz		PACKAGE = Acme::NabeAtzz

PROTOTYPES: ENABLE

void
_setup()
    PROTOTYPE:

inc/Test/Base/Filter.pm  view on Meta::CPAN

    my $err = '';
    Test::Base::tie_output(*STDOUT, $out);
    Test::Base::tie_output(*STDERR, $err);
    my $return = CORE::eval(shift);
    no warnings;
    untie *STDOUT;
    untie *STDERR;
    return $return, $@, $out, $err;
}

sub eval_stderr {
    $self->assert_scalar(@_);
    my $output = '';
    Test::Base::tie_output(*STDERR, $output);
    CORE::eval(shift);
    no warnings;
    untie *STDERR;
    return $output;
}

sub eval_stdout {