00000000 00000018 00000030 00000048 00000060 00000078 00000090 000000A8 000000C0 000000D8 000000F0 00000108 00000120 00000138 00000150 00000168 00000180 00000198 000001B0 000001C8 000001E0 000001F8 00000210 00000228 00000240 00000258 00000270 00000288 000002A0 000002B8 000002D0 000002E8 00000300 00000318 00000330 00000348 00000360 00000378 00000390 000003A8 000003C0 000003D8 000003F0 00000408 00000420 00000438 00000450 00000468 00000480 00000498 000004B0 000004C8 000004E0 000004F8 00000510 00000528 00000540 00000558 00000570 00000588 000005A0 000005B8 000005D0 000005E8 00000600 00000618 00000630 00000648 00000660 00000678 00000690 000006A8 000006C0 000006D8 000006F0 00000708 00000720 00000738 00000750 00000768 00000780 00000798 000007B0 000007C8 000007E0 000007F8 00000810 00000828 00000840 00000858 00000870 00000888 000008A0 000008B8 000008D0 000008E8 00000900 00000918 00000930 00000948 00000960 00000978 00000990 000009A8 000009C0 000009D8 000009F0 00000A08 00000A20 00000A38 00000A50 00000A68 00000A80 00000A98 00000AB0 00000AC8 00000AE0 00000AF8 00000B10 00000B28 00000B40 00000B58 00000B70 00000B88 00000BA0 00000BB8 00000BD0 00000BE8 00000C00 00000C18 00000C30 00000C48 00000C60 00000C78 00000C90 00000CA8 00000CC0 00000CD8 00000CF0 00000D08 00000D20 00000D38 00000D50 00000D68 00000D80 00000D98 00000DB0 00000DC8 00000DE0 00000DF8 00000E10 00000E28 00000E40 00000E58 00000E70 00000E88 00000EA0 00000EB8 00000ED0 00000EE8
| 23 21 2F 75 73 72 2F 62 69 6E 2F 70 65 72 6C 0A 20 20 20 20 65 76 61 6C 20 27 65 78 65 63 20 2F 75 73 72 2F 62 69 6E 2F 70 65 72 6C 20 2D 53 20 24 30 20 24 7B 31 2B 22 24 40 22 7D 27 0A 09 69 66 20 24 72 75 6E 6E 69 6E 67 5F 75 6E 64 65 72 5F 73 6F 6D 65 5F 73 68 65 6C 6C 3B 0A 23 21 2F 75 73 72 2F 62 69 6E 2F 70 65 72 6C 0A 23 20 24 49 64 3A 20 63 70 61 6E 2C 76 20 31 2E 33 20 32 30 30 32 2F 30 38 2F 33 30 20 30 38 3A 35 35 3A 31 35 20 6B 20 45 78 70 20 24 0A 75 73 65 20 73 74 72 69 63 74 3B 0A 0A 3D 68 65 61 64 31 20 4E 41 4D 45 0A 0A 63 70 61 6E 20 2D 20 65 61 73 69 6C 79 20 69 6E 74 65 72 61 63 74 20 77 69 74 68 20 43 50 41 4E 20 66 72 6F 6D 20 74 68 65 20 63 6F 6D 6D 61 6E 64 20 6C 69 6E 65 0A 0A 3D 68 65 61 64 31 20 53 59 4E 4F 50 53 49 53 0A 0A 09 23 20 77 69 74 68 20 61 72 67 75 6D 65 6E 74 73 2C 20 69 6E 73 74 61 6C 6C 73 20 73 70 65 63 69 66 69 65 64 20 6D 6F 64 75 6C 65 73 0A 09 63 70 61 6E 20 6D 6F 64 75 6C 65 5F 6E 61 6D 65 20 5B 20 6D 6F 64 75 6C 65 5F 6E 61 6D 65 20 2E 2E 2E 20 5D 0A 09 0A 09 23 20 77 69 74 68 20 73 77 69 74 63 68 65 73 2C 20 69 6E 73 74 61 6C 6C 73 20 6D 6F 64 75 6C 65 73 20 77 69 74 68 20 65 78 74 72 61 20 62 65 68 61 76 69 6F 72 0A 09 63 70 61 6E 20 5B 2D 63 69 6D 74 5D 20 6D 6F 64 75 6C 65 5F 6E 61 6D 65 20 5B 20 6D 6F 64 75 6C 65 5F 6E 61 6D 65 20 2E 2E 2E 20 5D 0A 09 0A 09 23 20 77 69 74 68 6F 75 74 20 61 72 67 75 6D 65 6E 74 73 2C 20 73 74 61 72 74 73 20 43 50 41 4E 20 73 68 65 6C 6C 0A 09 63 70 61 6E 0A 09 0A 09 23 20 77 69 74 68 6F 75 74 20 61 72 67 75 6D 65 6E 74 73 2C 20 62 75 74 20 73 6F 6D 65 20 73 77 69 74 63 68 65 73 0A 09 63 70 61 6E 20 5B 2D 61 68 72 76 5D 0A 0A 3D 68 65 61 64 31 20 44 45 53 43 52 49 50 54 49 4F 4E 0A 0A 54 68 69 73 20 73 63 72 69 70 74 20 70 72 6F 76 69 64 65 73 20 61 20 63 6F 6D 6D 61 6E 64 20 69 6E 74 65 72 66 61 63 65 20 28 6E 6F 74 20 61 20 73 68 65 6C 6C 29 20 74 6F 20 43 50 41 4E 2E 70 6D 2E 0A 0A 3D 68 65 61 64 32 20 4D 65 74 61 20 4F 70 74 69 6F 6E 73 0A 0A 54 68 65 73 65 20 6F 70 74 69 6F 6E 73 20 61 72 65 20 6D 75 74 75 61 6C 6C 79 20 65 78 63 6C 75 73 69 76 65 2C 20 61 6E 64 20 74 68 65 20 73 63 72 69 70 74 20 70 72 6F 63 65 73 73 65 73 0A 74 68 65 6D 20 69 6E 20 74 68 69 73 20 6F 72 64 65 72 3A 20 5B 61 68 76 72 5D 2E 20 20 4F 6E 63 65 20 74 68 65 20 73 63 72 69 70 74 20 66 69 6E 64 73 20 6F 6E 65 2C 20 69 74 20 69 67 6E 6F 72 65 73 0A 74 68 65 20 6F 74 68 65 72 73 2C 20 61 6E 64 20 74 68 65 6E 20 65 78 69 74 73 20 61 66 74 65 72 20 69 74 20 66 69 6E 69 73 68 65 73 20 74 68 65 20 74 61 73 6B 2E 20 20 54 68 65 20 73 63 72 69 70 74 0A 69 67 6E 6F 72 65 73 20 61 6E 79 20 6F 74 68 65 72 20 63 6F 6D 6D 61 6E 64 20 6C 69 6E 65 20 6F 70 74 69 6F 6E 73 2E 0A 0A 3D 6F 76 65 72 20 34 0A 0A 3D 69 74 65 6D 20 2D 61 0A 0A 43 72 65 61 74 65 73 20 74 68 65 20 43 50 41 4E 2E 70 6D 20 61 75 74 6F 62 75 6E 64 6C 65 20 77 69 74 68 20 43 50 41 4E 3A 3A 53 68 65 6C 6C 2D 3E 61 75 74 6F 62 75 6E 64 6C 65 2E 20 20 0A 0A 3D 69 74 65 6D 20 2D 68 0A 0A 50 72 69 6E 74 73 20 61 20 68 65 6C 70 20 6D 65 73 73 61 67 65 2E 0A 0A 3D 69 74 65 6D 20 2D 72 0A 0A 52 65 63 6F 6D 70 69 6C 65 73 20 64 79 6E 61 6D 69 63 61 6C 6C 79 20 6C 6F 61 64 65 64 20 6D 6F 64 75 6C 65 73 20 77 69 74 68 20 43 50 41 4E 3A 3A 53 68 65 6C 6C 2D 3E 72 65 63 6F 6D 70 69 6C 65 2E 0A 0A 3D 69 74 65 6D 20 2D 76 0A 0A 50 72 69 6E 74 20 74 68 65 20 73 63 72 69 70 74 20 76 65 72 73 69 6F 6E 20 61 6E 64 20 43 50 41 4E 2E 70 6D 20 76 65 72 73 69 6F 6E 2E 0A 0A 3D 62 61 63 6B 0A 0A 3D 68 65 61 64 32 20 4D 6F 64 75 6C 65 20 6F 70 74 69 6F 6E 73 0A 0A 54 68 65 73 65 20 6F 70 74 69 6F 6E 73 20 61 72 65 20 6D 75 74 75 61 6C 6C 79 20 65 78 63 6C 75 73 69 76 65 2C 20 61 6E 64 20 74 68 65 20 73 63 72 69 70 74 20 70 72 6F 63 65 73 73 65 73 0A 74 68 65 6D 20 69 6E 20 61 6C 70 68 61 62 65 74 69 63 61 6C 20 6F 72 64 65 72 2E 20 0A 0A 3D 6F 76 65 72 20 34 0A 0A 3D 69 74 65 6D 20 63 0A 0A 52 75 6E 73 20 61 20 60 6D 61 6B 65 20 63 6C 65 61 6E 60 20 69 6E 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 6D 6F 64 75 6C 65 27 73 20 64 69 72 65 63 74 6F 72 69 65 73 2E 0A 0A 3D 69 74 65 6D 20 69 0A 0A 49 6E 73 74 61 6C 6C 65 64 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 6D 6F 64 75 6C 65 73 2E 0A 0A 3D 69 74 65 6D 20 6D 0A 0A 4D 61 6B 65 73 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 6D 6F 64 75 6C 65 73 2E 0A 0A 3D 69 74 65 6D 20 74 0A 0A 52 75 6E 73 20 61 20 60 6D 61 6B 65 20 74 65 73 74 60 20 6F 6E 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 6D 6F 64 75 6C 65 73 2E 0A 0A 3D 62 61 63 6B 0A 0A 3D 68 65 61 64 32 20 45 78 61 6D 70 6C 65 73 0A 0A 09 23 20 70 72 69 6E 74 20 61 20 68 65 6C 70 20 6D 65 73 73 61 67 65 0A 09 63 70 61 6E 20 2D 68 0A 09 0A 09 23 20 70 72 69 6E 74 20 74 68 65 20 76 65 72 73 69 6F 6E 20 6E 75 6D 62 65 72 73 0A 09 63 70 61 6E 20 2D 76 0A 09 0A 09 23 20 63 72 65 61 74 65 20 61 6E 20 61 75 74 6F 62 75 6E 64 6C 65 0A 09 63 70 61 6E 20 2D 61 0A 09 0A 09 23 20 72 65 63 6F 6D 70 69 6C 65 20 6D 6F 64 75 6C 65 73 0A 09 63 70 61 6E 20 2D 72 20 0A 09 0A 09 23 20 69 6E 73 74 61 6C 6C 20 6D 6F 64 75 6C 65 73 0A 09 63 70 61 6E 20 2D 69 20 4E 65 74 73 63 61 70 65 3A 3A 42 6F 6F 6B 73 6D 61 72 6B 73 20 42 75 73 69 6E 65 73 73 3A 3A 49 53 42 4E 0A 0A 3D 68 65 61 64 31 20 54 4F 20 44 4F 0A 0A 2A 20 61 64 64 20 6F 70 74 69 6F 6E 73 20 66 6F 72 20 6F 74 68 65 72 20 43 50 41 4E 3A 3A 53 68 65 6C 6C 20 66 75 6E 63 74 69 6F 6E 73 0A 61 75 74 6F 62 75 6E 64 6C 65 2C 20 63 6C 65 61 6E 2C 20 6D 61 6B 65 2C 20 72 65 63 6F 6D 70 69 6C 65 2C 20 74 65 73 74 0A 0A 3D 68 65 61 64 31 20 42 55 47 53 0A 0A 2A 20 6E 6F 6E 65 20 6E 6F 74 65 64 0A 0A 3D 68 65 61 64 31 20 53 45 45 20 41 4C 53 4F 0A 0A 4D 6F 73 74 20 62 65 68 61 76 69 6F 75 72 2C 20 69 6E 63 6C 75 64 69 6E 67 20 65 6E 76 69 72 6F 6E 6D 65 6E 74 20 76 61 72 69 61 62 6C 65 73 20 61 6E 64 20 63 6F 6E 66 69 67 75 72 61 74 69 6F 6E 2C 0A 63 6F 6D 65 73 20 64 69 72 65 63 74 6C 79 20 66 72 6F 6D 20 43 50 41 4E 2E 70 6D 2E 0A 0A 3D 68 65 61 64 31 20 41 55 54 48 4F 52 0A 0A 62 72 69 61 6E 20 64 20 66 6F 79 20 3C 62 64 66 6F 79 40 63 70 61 6E 2E 6F 72 67 3E 0A 0A 3D 63 75 74 0A 0A 75 73 65 20 43 50 41 4E 20 28 29 3B 0A 75 73 65 20 47 65 74 6F 70 74 3A 3A 53 74 64 3B 0A 0A 6D 79 20 24 56 45 52 53 49 4F 4E 20 3D 20 0A 09 73 70 72 69 6E 74 66 20 22 25 64 2E 25 30 32 64 22 2C 20 71 24 52 65 76 69 73 69 6F 6E 3A 20 31 2E 33 20 24 20 3D 7E 20 6D 2F 20 28 5C 64 2B 29 20 5C 2E 20 28 5C 64 2B 29 20 2F 78 67 3B 0A 0A 6D 79 20 24 44 65 66 61 75 6C 74 20 3D 20 27 64 65 66 61 75 6C 74 27 3B 0A 0A 6D 79 20 24 4D 45 54 41 5F 4F 50 54 49 4F 4E 53 20 3D 20 27 61 68 76 72 27 3B 0A 0A 6D 79 20 25 43 50 41 4E 5F 4D 45 54 48 4F 44 53 20 3D 20 28 0A 09 24 44 65 66 61 75 6C 74 20 3D 3E 20 27 69 6E 73 74 61 6C 6C 27 2C 0A 09 27 63 27 20 20 20 20 20 20 3D 3E 20 27 63 6C 65 61 6E 27 2C 0A 09 27 69 27 20 20 20 20 20 20 3D 3E 20 27 69 6E 73 74 61 6C 6C 27 2C 0A 09 27 6D 27 20 20 20 20 20 20 3D 3E 20 27 6D 61 6B 65 27 2C 0A 09 27 74 27 20 20 20 20 20 20 3D 3E 20 27 74 65 73 74 27 2C 0A 09 29 3B 0A 0A 6D 79 20 40 63 70 61 6E 5F 6F 70 74 69 6F 6E 73 20 3D 20 67 72 65 70 20 7B 20 24 5F 20 6E 65 20 24 44 65 66 61 75 6C 74 20 7D 20 73 6F 72 74 20 6B 65 79 73 20 25 43 50 41 4E 5F 4D 45 54 48 4F 44 53 3B 0A 0A 6D 79 20 24 61 72 67 5F 63 6F 75 6E 74 20 3D 20 40 41 52 47 56 3B 0A 6D 79 20 25 6F 70 74 69 6F 6E 73 3B 0A 0A 47 65 74 6F 70 74 3A 3A 53 74 64 3A 3A 67 65 74 6F 70 74 73 28 20 0A 09 6A 6F 69 6E 28 20 27 27 2C 20 40 63 70 61 6E 5F 6F 70 74 69 6F 6E 73 2C 20 24 4D 45 54 41 5F 4F 50 54 49 4F 4E 53 20 29 2C 20 5C 25 6F 70 74 69 6F 6E 73 20 29 3B 0A 09 0A 69 66 28 20 24 6F 70 74 69 6F 6E 73 7B 68 7D 20 29 0A 09 7B 0A 09 70 72 69 6E 74 20 53 54 44 45 52 52 20 22 50 72 69 6E 74 69 6E 67 20 68 65 6C 70 20 6D 65 73 73 61 67 65 20 2D 2D 20 69 67 6E 6F 72 69 6E 67 20 6F 74 68 65 72 20 61 72 67 75 6D 65 6E 74 73 5C 6E 22 0A 09 09 69 66 20 24 61 72 67 5F 63 6F 75 6E 74 20 3E 20 31 3B 0A 0A 09 70 72 69 6E 74 20 53 54 44 45 52 52 20 22 55 73 65 20 70 65 72 6C 64 6F 63 20 74 6F 20 72 65 61 64 20 74 68 65 20 64 6F 63 75 6D 65 6E 74 61 74 69 6F 6E 5C 6E 22 3B 0A 09 65 78 69 74 20 30 3B 0A 09 7D 0A 65 6C 73 69 66 28 20 24 6F 70 74 69 6F 6E 73 7B 76 7D 20 29 0A 09 7B 0A 09 70 72 69 6E 74 20 53 54 44 45 52 52 20 22 50 72 69 6E 74 69 6E 67 20 76 65 72 73 69 6F 6E 20 6D 65 73 73 61 67 65 20 2D 2D 20 69 67 6E 6F 72 69 6E 67 20 6F 74 68 65 72 20 61 72 67 75 6D 65 6E 74 73 5C 6E 22 0A 09 0A 09 09 69 66 20 24 61 72 67 5F 63 6F 75 6E 74 20 3E 20 31 3B 0A 0A 09 6D 79 20 24 43 50 41 4E 5F 56 45 52 53 49 4F 4E 20 3D 20 43 50 41 4E 2D 3E 56 45 52 53 49 4F 4E 3B 0A 09 70 72 69 6E 74 20 53 54 44 45 52 52 20 22 63 70 61 6E 20 73 63 72 69 70 74 20 76 65 72 73 69 6F 6E 20 24 56 45 52 53 49 4F 4E 5C 6E 22 20 2E 0A 09 09 22 43 50 41 4E 2E 70 6D 20 76 65 72 73 69 6F 6E 20 24 43 50 41 4E 5F 56 45 52 53 49 4F 4E 5C 6E 22 3B 0A 09 65 78 69 74 20 30 3B 0A 09 7D 0A 65 6C 73 69 66 28 20 24 6F 70 74 69 6F 6E 73 7B 61 7D 20 29 0A 09 7B 0A 09 70 72 69 6E 74 20 22 43 72 65 61 74 69 6E 67 20 61 75 74 6F 62 75 6E 64 6C 65 20 69 6E 20 22 2C 20 24 43 50 41 4E 3A 3A 43 6F 6E 66 69 67 2D 3E 7B 63 70 61 6E 5F 68 6F 6D 65 7D 2C 20 0A 09 09 22 2F 42 75 6E 64 6C 65 5C 6E 22 3B 0A 09 70 72 69 6E 74 20 53 54 44 45 52 52 20 22 43 72 65 61 74 69 6E 67 20 61 75 74 6F 62 75 6E 64 6C 65 20 2D 2D 20 69 67 6E 6F 72 69 6E 67 20 6F 74 68 65 72 20 61 72 67 75 6D 65 6E 74 73 5C 6E 22 0A 09 09 69 66 20 24 61 72 67 5F 63 6F 75 6E 74 20 3E 20 31 3B 0A 0A 09 43 50 41 4E 3A 3A 53 68 65 6C 6C 2D 3E 61 75 74 6F 62 75 6E 64 6C 65 3B 0A 09 65 78 69 74 20 30 3B 0A 09 7D 0A 65 6C 73 69 66 28 20 24 6F 70 74 69 6F 6E 73 7B 72 7D 20 29 0A 09 7B 0A 09 70 72 69 6E 74 20 53 54 44 45 52 52 20 22 43 72 65 61 74 69 6E 67 20 61 75 74 6F 62 75 6E 64 6C 65 20 2D 2D 20 69 67 6E 6F 72 69 6E 67 20 6F 74 68 65 72 20 61 72 67 75 6D 65 6E 74 73 5C 6E 22 0A 09 09 69 66 20 24 61 72 67 5F 63 6F 75 6E 74 20 3E 20 31 3B 0A 09 09 0A 09 43 50 41 4E 3A 3A 53 68 65 6C 6C 2D 3E 72 65 63 6F 6D 70 69 6C 65 3B 0A 09 7D 0A 65 6C 73 65 0A 09 7B 0A 09 6D 79 20 24 73 77 69 74 63 68 20 3D 20 27 27 3B 0A 09 0A 09 66 6F 72 65 61 63 68 20 6D 79 20 24 6F 70 74 69 6F 6E 20 28 20 40 63 70 61 6E 5F 6F 70 74 69 6F 6E 73 20 29 0A 09 09 7B 0A 09 09 6E 65 78 74 20 75 6E 6C 65 73 73 20 24 6F 70 74 69 6F 6E 73 7B 24 6F 70 74 69 6F 6E 7D 3B 0A 09 09 24 73 77 69 74 63 68 20 3D 20 24 6F 70 74 69 6F 6E 3B 0A 09 09 6C 61 73 74 3B 0A 09 09 7D 0A 09 0A 09 20 20 20 69 66 28 20 6E 6F 74 20 24 73 77 69 74 63 68 20 61 6E 64 20 20 20 20 20 40 41 52 47 56 20 29 20 7B 20 24 73 77 69 74 63 68 20 3D 20 24 44 65 66 61 75 6C 74 3B 20 20 20 20 20 7D 0A 09 65 6C 73 69 66 28 20 6E 6F 74 20 24 73 77 69 74 63 68 20 61 6E 64 20 6E 6F 74 20 40 41 52 47 56 20 29 20 7B 20 43 50 41 4E 3A 3A 73 68 65 6C 6C 28 29 3B 20 65 78 69 74 20 30 3B 20 20 7D 09 0A 09 65 6C 73 69 66 28 20 20 20 20 20 24 73 77 69 74 63 68 20 61 6E 64 20 6E 6F 74 20 40 41 52 47 56 20 29 20 0A 09 09 7B 20 64 69 65 20 22 4E 6F 74 68 69 6E 67 20 74 6F 20 24 43 50 41 4E 5F 4D 45 54 48 4F 44 53 7B 24 73 77 69 74 63 68 7D 21 5C 6E 22 3B 20 7D 0A 0A 09 6D 79 20 24 6D 65 74 68 6F 64 20 3D 20 24 43 50 41 4E 5F 4D 45 54 48 4F 44 53 7B 24 73 77 69 74 63 68 7D 3B 0A 09 64 69 65 20 22 43 50 41 4E 2E 70 6D 20 63 61 6E 6E 6F 74 20 24 6D 65 74 68 6F 64 21 5C 6E 22 20 75 6E 6C 65 73 73 20 43 50 41 4E 3A 3A 53 68 65 6C 6C 2D 3E 63 61 6E 28 20 24 6D 65 74 68 6F 64 20 29 3B 0A 09 0A 09 66 6F 72 65 61 63 68 20 6D 79 20 24 61 72 67 20 28 20 40 41 52 47 56 20 29 0A 09 09 7B 0A 09 09 43 50 41 4E 3A 3A 53 68 65 6C 6C 2D 3E 24 6D 65 74 68 6F 64 28 20 24 61 72 67 20 29 3B 0A 09 09 7D 0A 09 7D 0A 09 0A 31 3B 0A
| #!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if $runni ng_under_some_shell; #!/ usr/bin/perl # $Id: cpan ,v 1.3 2002/08/30 08:55: 15 k Exp $ use strict; =head1 NAME cpan - easi ly interact with CPAN fr om the command line =he ad1 SYNOPSIS # with ar guments, installs specif ied modules cpan module _name [ module_name ... ] # with switches, in stalls modules with extr a behavior cpan [-cimt] module_name [ module_na me ... ] # without ar guments, starts CPAN she ll cpan # without ar guments, but some switch es cpan [-ahrv] =head1 DESCRIPTION This scrip t provides a command int erface (not a shell) to CPAN.pm. =head2 Meta Op tions These options are mutually exclusive, and the script processes th em in this order: [ahvr] . Once the script finds one, it ignores the oth ers, and then exits afte r it finishes the task. The script ignores any other command line optio ns. =over 4 =item -a Creates the CPAN.pm auto bundle with CPAN::Shell- >autobundle. =item -h Prints a help message. =item -r Recompiles d ynamically loaded module s with CPAN::Shell->reco mpile. =item -v Print the script version and C PAN.pm version. =back =head2 Module options T hese options are mutuall y exclusive, and the scr ipt processes them in al phabetical order. =ove r 4 =item c Runs a `ma ke clean` in the specifi ed module's directories. =item i Installed the specified modules. =it em m Makes the specifie d modules. =item t Run s a `make test` on the s pecified modules. =back =head2 Examples # pr int a help message cpan -h # print the versi on numbers cpan -v # create an autobundle c pan -a # recompile mo dules cpan -r # ins tall modules cpan -i Ne tscape::Booksmarks Busin ess::ISBN =head1 TO DO * add options for other CPAN::Shell functions a utobundle, clean, make, recompile, test =head1 BUGS * none noted =hea d1 SEE ALSO Most behavi our, including environme nt variables and configu ration, comes directly f rom CPAN.pm. =head1 AUT HOR brian d foy <bdfoy@ cpan.org> =cut use CPA N (); use Getopt::Std; my $VERSION = sprintf "%d.%02d", q$Revision: 1 .3 $ =~ m/ (\d+) \. (\d+ ) /xg; my $Default = 'd efault'; my $META_OPTIO NS = 'ahvr'; my %CPAN_M ETHODS = ( $Default => 'install', 'c' => 'clean', 'i' => 'i nstall', 'm' => 'm ake', 't' => 'test ', ); my @cpan_options = grep { $_ ne $Default } sort keys %CPAN_METHO DS; my $arg_count = @AR GV; my %options; Getopt ::Std::getopts( join( '', @cpan_options, $META _OPTIONS ), \%options ); if( $options{h} ) { print STDERR "Printing help message -- ignoring other arguments\n" if $arg_count > 1; print STDERR "Use perldoc to read the documentation\n "; exit 0; } elsif( $o ptions{v} ) { print ST DERR "Printing version m essage -- ignoring other arguments\n" if $ar g_count > 1; my $CPAN_ VERSION = CPAN->VERSION; print STDERR "cpan scr ipt version $VERSION\n" . "CPAN.pm version $CP AN_VERSION\n"; exit 0; } elsif( $options{a} ) { print "Creating auto bundle in ", $CPAN::Conf ig->{cpan_home}, "/Bu ndle\n"; print STDERR " Creating autobundle -- i gnoring other arguments\ n" if $arg_count > 1; CPAN::Shell->autobundl e; exit 0; } elsif( $o ptions{r} ) { print ST DERR "Creating autobundl e -- ignoring other argu ments\n" if $arg_count > 1; CPAN::Shell->r ecompile; } else { my $switch = ''; foreac h my $option ( @cpan_opt ions ) { next unless $options{$option}; $s witch = $option; last; } if( not $swit ch and @ARGV ) { $sw itch = $Default; } elsif( not $switch and n ot @ARGV ) { CPAN::shell (); exit 0; } elsif( $switch and not @ARG V ) { die "Nothing to $CPAN_METHODS{$switch}! \n"; } my $method = $C PAN_METHODS{$switch}; d ie "CPAN.pm cannot $meth od!\n" unless CPAN::Shel l->can( $method ); fo reach my $arg ( @ARGV ) { CPAN::Shell->$meth od( $arg ); } } 1;
|