1. my role IO {
  2. # This role is empty and exists so that IO() coercers
  3. # that coerce to IO::Path type check the result values OK
  4. }
  5. enum SeekType (
  6. :SeekFromBeginning(0),
  7. :SeekFromCurrent(1),
  8. :SeekFromEnd(2),
  9. );
  10. enum ProtocolFamily (
  11. :PF_LOCAL(0),
  12. :PF_UNIX(1),
  13. :PF_INET(2),
  14. :PF_INET6(3),
  15. :PF_MAX(4),
  16. );
  17. enum SocketType (
  18. :SOCK_PACKET(0),
  19. :SOCK_STREAM(1),
  20. :SOCK_DGRAM(2),
  21. :SOCK_RAW(3),
  22. :SOCK_RDM(4),
  23. :SOCK_SEQPACKET(5),
  24. :SOCK_MAX(6),
  25. );
  26. enum ProtocolType (
  27. :PROTO_TCP(6),
  28. :PROTO_UDP(17),
  29. );