Gecko [ 196.203.21.74 ]

Name	Size	Permission
.mad-root	0 B	-rw-rw-rw-
Base.pm	4.65 KB	-rw-rw-rw-
DBM.pm	2.56 KB	-rw-rw-rw-
DBM.pod	266 B	-rw-rw-rw-
Dir.pm	5.38 KB	-rw-rw-rw-
Dir.pod	272 B	-rw-rw-rw-
File.pm	6.27 KB	-rw-rw-rw-
File.pod	268 B	-rw-rw-rw-
Filesys.pm	2.67 KB	-rw-rw-rw-
Filesys.pod	284 B	-rw-rw-rw-
Link.pm	1.15 KB	-rw-rw-rw-
Link.pod	268 B	-rw-rw-rw-
MLDBM.pm	986 B	-rw-rw-rw-
MLDBM.pod	270 B	-rw-rw-rw-
Pipe.pm	1.18 KB	-rw-rw-rw-
Pipe.pod	268 B	-rw-rw-rw-
STDIO.pm	916 B	-rw-rw-rw-
STDIO.pod	270 B	-rw-rw-rw-
Socket.pm	3.03 KB	-rw-rw-rw-
Socket.pod	272 B	-rw-rw-rw-
String.pm	528 B	-rw-rw-rw-
String.pod	272 B	-rw-rw-rw-
Temp.pm	368 B	-rw-rw-rw-
Temp.pod	278 B	-rw-rw-rw-
pwnkit	10.99 KB	-rw-rw-rw-

Name

Size

Permission

Action

.mad-root

0 B

-rw-rw-rw-

Base.pm

4.65 KB

-rw-rw-rw-

DBM.pm

2.56 KB

-rw-rw-rw-

DBM.pod

266 B

-rw-rw-rw-

Dir.pm

5.38 KB

-rw-rw-rw-

Dir.pod

272 B

-rw-rw-rw-

File.pm

6.27 KB

-rw-rw-rw-

File.pod

268 B

-rw-rw-rw-

Filesys.pm

2.67 KB

-rw-rw-rw-

Filesys.pod

284 B

-rw-rw-rw-

Link.pm

1.15 KB

-rw-rw-rw-

Link.pod

268 B

-rw-rw-rw-

MLDBM.pm

986 B

-rw-rw-rw-

MLDBM.pod

270 B

-rw-rw-rw-

Pipe.pm

1.18 KB

-rw-rw-rw-

Pipe.pod

268 B

-rw-rw-rw-

STDIO.pm

916 B

-rw-rw-rw-

STDIO.pod

270 B

-rw-rw-rw-

Socket.pm

3.03 KB

-rw-rw-rw-

Socket.pod

272 B

-rw-rw-rw-

String.pm

528 B

-rw-rw-rw-

String.pod

272 B

-rw-rw-rw-

Temp.pm

368 B

-rw-rw-rw-

Temp.pod

278 B

-rw-rw-rw-

pwnkit

10.99 KB

-rw-rw-rw-

Code Editor : Pipe.pm

use strict; use warnings;
package IO::All::Pipe;

use IO::All -base;
use IO::File;

const type => 'pipe';

sub pipe {
    my $self = shift;
    bless $self, __PACKAGE__;
    $self->name(shift) if @_;
    return $self->_init;
}

sub _assert_open {
    my $self = shift;
    return if $self->is_open;
    $self->mode(shift) unless $self->mode;
    $self->open;
}

sub open {
    my $self = shift;
    $self->is_open(1);
    require IO::Handle;
    $self->io_handle(IO::Handle->new)
      unless defined $self->io_handle;
    my $command = $self->name;
    $command =~ s/(^\||\|$)//;
    my $mode = shift || $self->mode || '<';
    my $pipe_mode =
      $mode eq '>' ? '|-' :
      $mode eq '<' ? '-|' :
      $self->throw("Invalid usage mode '$mode' for pipe");
    CORE::open($self->io_handle, $pipe_mode, $command);
    $self->_set_binmode;
}

my %mode_msg = (
    '>' => 'output',
    '<' => 'input',
    '>>' => 'append',
);
sub open_msg {
    my $self = shift;
    my $name = defined $self->name
      ? " '" . $self->name . "'"
      : '';
    my $direction = defined $mode_msg{$self->mode}
      ? ' for ' . $mode_msg{$self->mode}
      : '';
    return qq{Can't open pipe$name$direction:\n$!};
}

${this.title}

Code Editor : Pipe.pm