Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
HTTP.pm	28.68 KB	-rw-r--r--
IO.pm	1.66 KB	-rw-r--r--
LOCAL.pm	1.59 KB	-rw-r--r--
LOOPBACK.pm	1.73 KB	-rw-r--r--
MAILTO.pm	2.55 KB	-rw-r--r--
POP3.pm	3.51 KB	-rw-r--r--
TCP.pm	9.48 KB	-rw-r--r--

Code Editor : IO.pm

# ======================================================================
#
# Copyright (C) 2000-2001 Paul Kulchenko (paulclinger@yahoo.com)
# SOAP::Lite is free software; you can redistribute it
# and/or modify it under the same terms as Perl itself.
#
# ======================================================================

package SOAP::Transport::IO;

use strict;

our $VERSION = '1.27'; # VERSION

use IO::File;
use SOAP::Lite;
# ======================================================================

package SOAP::Transport::IO::Server;

use strict;
use Carp ();
use vars qw(@ISA);
@ISA = qw(SOAP::Server);

sub new {
    my $class = shift;

return $class if ref $class;
    my $self = $class->SUPER::new(@_);

return $self;
}

sub in {
    my $self = shift;
    $self = $self->new() if not ref $self;

return $self->{ _in } if not @_;

my $file = shift;
    $self->{_in} = (defined $file && !ref $file && !defined fileno($file))
        ? IO::File->new($file, 'r')
        : $file;
    return $self;
}

sub out {
    my $self = shift;
    $self = $self->new() if not ref $self;

return $self->{ _out } if not @_;

my $file = shift;
    $self->{_out} = (defined $file && !ref $file && !defined fileno($file))
        ? IO::File->new($file, 'w')
        : $file;
    return $self;
}

sub handle {
    my $self = shift->new;

$self->in(*STDIN)->out(*STDOUT) unless defined $self->in;
    my $in = $self->in;
    my $out = $self->out;

my $result = $self->SUPER::handle(join '', <$in>);
    no strict 'refs';
    print {$out} $result
        if defined $out;
    return;
}

# ======================================================================

__END__

${this.title}

Code Editor : IO.pm