1. my class IO::Pipe is IO::Handle {
  2. has $.proc;
  3. method close(IO::Pipe:D:) {
  4. my $PIO := nqp::getattr(nqp::decont(self), IO::Handle, '$!PIO');
  5. $!proc.status( nqp::closefh_i($PIO) ) if nqp::defined($PIO);
  6. nqp::bindattr(nqp::decont(self), IO::Handle, '$!PIO', Mu);
  7. $!proc;
  8. }
  9. }