1. my role IO {
  2. method umask { state $ = :8( qx/umask/.chomp ) }
  3. }
  4. enum SeekType (
  5. :SeekFromBeginning(0),
  6. :SeekFromCurrent(1),
  7. :SeekFromEnd(2),
  8. );
  9. enum ProtocolFamily (
  10. :PF_LOCAL(0),
  11. :PF_UNIX(1),
  12. :PF_INET(2),
  13. :PF_INET6(3),
  14. :PF_MAX(4),
  15. );
  16. enum SocketType (
  17. :SOCK_PACKET(0),
  18. :SOCK_STREAM(1),
  19. :SOCK_DGRAM(2),
  20. :SOCK_RAW(3),
  21. :SOCK_RDM(4),
  22. :SOCK_SEQPACKET(5),
  23. :SOCK_MAX(6),
  24. );
  25. enum ProtocolType (
  26. :PROTO_TCP(6),
  27. :PROTO_UDP(17),
  28. );