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. method WHICH(IO::Special:D:) { "IO::Special$!what" }
  8. 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. }