1. #line 1 SETTING::src/core/IO/Special.pm
  2. class IO::Special {
  3. has Str $.what;
  4. method new(\what) {
  5. nqp::p6bindattrinvres(nqp::create(self),self,'$!what',what)
  6. }
  7. multi method WHICH(IO::Special:D:) { "IO::Special$!what" }
  8. multi method Str(IO::Special:D:) { $!what }
  9. method IO(IO::Special:D:) { self }
  10. method e(IO::Special:D: --> True) { }
  11. method d(IO::Special:D: --> False) { }
  12. method f(IO::Special:D: --> False) { }
  13. method s(IO::Special:D:--> 0) { }
  14. method l(IO::Special:D: --> False) { }
  15. method r(IO::Special:D:) { $!what eq '<STDIN>' }
  16. method w(IO::Special:D:) { $!what eq '<STDOUT>' or $!what eq '<STDERR>' }
  17. method x(IO::Special:D: --> False) { }
  18. method modified(IO::Special:D: --> Instant) { }
  19. method accessed(IO::Special:D: --> Instant) { }
  20. method changed(IO::Special:D: --> Instant) { }
  21. method mode(IO::Special:D: --> Nil) { }
  22. }