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. }
6. enum SeekType (
7. :SeekFromBeginning(0),
8. :SeekFromCurrent(1),
9. :SeekFromEnd(2),
10. );
11. enum ProtocolFamily (
12. :PF_LOCAL(0),
13. :PF_UNIX(1),
14. :PF_INET(2),
15. :PF_INET6(3),
16. :PF_MAX(4),
17. );
18. enum SocketType (
19. :SOCK_PACKET(0),
20. :SOCK_STREAM(1),
21. :SOCK_DGRAM(2),
22. :SOCK_RAW(3),
23. :SOCK_RDM(4),
24. :SOCK_SEQPACKET(5),
25. :SOCK_MAX(6),
26. );
27. enum ProtocolType (
28. :PROTO_TCP(6),
29. :PROTO_UDP(17),
30. );