[ Index ] |
PHP Cross Reference of Unnamed Project |
[Summary view] [Print] [Text view]
1 package DBI::Gofer::Transport::pipeone; 2 3 # $Id: pipeone.pm 10087 2007-10-16 12:42:37Z timbo $ 4 # 5 # Copyright (c) 2007, Tim Bunce, Ireland 6 # 7 # You may distribute under the terms of either the GNU General Public 8 # License or the Artistic License, as specified in the Perl README file. 9 10 use strict; 11 use warnings; 12 13 use DBI::Gofer::Execute; 14 15 use base qw(DBI::Gofer::Transport::Base Exporter); 16 17 our $VERSION = sprintf("0.%06d", q$Revision: 10087 $ =~ /(\d+)/o); 18 19 our @EXPORT = qw(run_one_stdio); 20 21 my $executor = DBI::Gofer::Execute->new(); 22 23 sub run_one_stdio { 24 25 my $transport = DBI::Gofer::Transport::pipeone->new(); 26 27 my $frozen_request = do { local $/; <STDIN> }; 28 29 my $response = $executor->execute_request( $transport->thaw_request($frozen_request) ); 30 31 my $frozen_response = $transport->freeze_response($response); 32 33 print $frozen_response; 34 } 35 36 1; 37 __END__ 38 39 =head1 NAME 40 41 DBI::Gofer::Transport::pipeone - DBD::Gofer server-side transport for pipeone 42 43 =head1 SYNOPSIS 44 45 See L<DBD::Gofer::Transport::pipeone>. 46 47 =head1 AUTHOR 48 49 Tim Bunce, L<http://www.tim.bunce.name> 50 51 =head1 LICENCE AND COPYRIGHT 52 53 Copyright (c) 2007, Tim Bunce, Ireland. All rights reserved. 54 55 This module is free software; you can redistribute it and/or 56 modify it under the same terms as Perl itself. See L<perlartistic>. 57 58 =cut 59
title
Description
Body
title
Description
Body
title
Description
Body
title
Body
Generated: Tue Mar 17 22:47:18 2015 | Cross-referenced by PHPXref 0.7.1 |