1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
package Test::Trap::Builder::PerlIO;
use version; $VERSION = qv('0.2.4');
use strict;
use warnings;
use Test::Trap::Builder;
use PerlIO 'scalar';
sub import {
Test::Trap::Builder->output_layer_backend( perlio => $_ ) for sub {
my $self = shift;
my ($name, $fileno, $globref) = @_;
local *$globref;
{
no warnings 'io';
open *$globref, '>', \$self->{$name};
}
$self->Next;
};
}
1; # End of Test::Trap::Builder::PerlIO
__END__
=head1 NAME
Test::Trap::Builder::PerlIO - Output layer backend using PerlIO::scalar
=head1 VERSION
Version 0.2.4
=head1 DESCRIPTION
This module provides an implementation I<perlio>, based on
PerlIO::scalar, for the trap's output layers. Note that you may
specify different implementations for each output layer on the trap.
See also L<Test::Trap> (:stdout and :stderr) and
L<Test::Trap::Builder> (output_layer).
=head1 CAVEATS
These layers use in-memory files, and so will not (indeed cannot) trap
output from forked-off processes -- including system() calls.
Threads? No idea. It might even work correctly.
=head1 BUGS
Please report any bugs or feature requests directly to the author.
=head1 AUTHOR
Eirik Berg Hanssen, C<< <ebhanssen@cpan.org> >>
=head1 COPYRIGHT & LICENSE
Copyright 2006-2014 Eirik Berg Hanssen, All Rights Reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
|
