view release on metacpan or  search on metacpan

inc/Module/Install/Can.pm  view on Meta::CPAN

70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
                # No working C compiler
                return 0;
        }
 
        # Write a C file representative of what XS becomes
        require File::Temp;
        my ( $FH, $tmpfile ) = File::Temp::tempfile(
                "compilexs-XXXXX",
                SUFFIX => '.c',
        );
        binmode $FH;
        print $FH <<'END_C';
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
 
int main(int argc, char **argv) {
    return 0;
}
 
int boot_sanexs() {

inc/Test/Builder.pm  view on Meta::CPAN

1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
        }
    );
 
    return;
}
 
sub _apply_layers {
    my ($fh, @layers) = @_;
    my %seen;
    my @unique = grep { $_ ne 'unix' and !$seen{$_}++ } @layers;
    binmode($fh, join(":", "", "raw", @unique));
}
 
 
#line 1926
 
sub reset_outputs {
    my $self = shift;
 
    $self->output        ($Testout);
    $self->failure_output($Testerr);

inc/Test/Builder/IO/Scalar.pm  view on Meta::CPAN

282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
#------------------------------
 
#line 408
 
sub autoflush {}
 
#------------------------------
 
#line 419
 
sub binmode {}
 
#------------------------------
 
#line 429
 
sub clearerr { 1 }
 
#------------------------------
 
#line 439