[ Index ]

PHP Cross Reference of Unnamed Project

title

Body

[close]

/se3-unattended/var/se3/unattended/install/linuxaux/opt/perl/lib/site_perl/5.10.0/i586-linux-thread-multi/DBI/Gofer/Transport/ -> pipeone.pm (source)

   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  


Generated: Tue Mar 17 22:47:18 2015 Cross-referenced by PHPXref 0.7.1