Microsoft (R) Program Maintenance Utility Version 7.00.8882 Copyright (C) Microsoft Corp 1988-2000. All rights reserved. Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Sub\Override.pm Writing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Sub\Override\.packlist Appending installation info to C:\cpanrun-5.8\build\5-8-0\lib/perllocal.pod Sub::Override->can('new') ok 3 - ... and the object it returns isa Sub::Override ok 4 - Sub::Override->can('replace') ok 5 - ... and we can't replace a sub which doesn't exist ok 6 - ... and only a code reference may replace a subroutine ok 7 - ... and replacing a subroutine should succeed ok 8 - ... and the subroutine should exhibit the new behavior ok 9 - ... and we should be able to replace a sub more than once ok 10 - ... and still have the sub exhibit the new behavior ok 11 - Sub::Override->can('override') ok 12 - ... and it should also replace a subroutine ok 13 - ... and act just like replace() ok 14 - Sub::Override->can('restore') ok 15 - ... and it should fail if the subroutine had not been replaced ok 16 - ... and the subroutine should exhibit the original behavior ok 17 - ... but we should not be able to restore it twice ok 18 - A new override object should be able to replace a subroutine ok 19 - ... and the subroutine should exhibit the new behavior ok 20 - ... but should revert to the original behavior when the object falls out of scope ok 21 - We should be able to override a sub from the constructor ok 22 - ... and the subroutine should exhibit the new behavior ok 23 - ... and we do not need an argument to restore if only one sub is overridden ok 24 - ... and the subroutine should exhibit its original behavior ok 25 - ... but we must explicitly provide the sub name if more than one was replaced ok 26 - Not fully qualifying a sub name will assume the current package ok 27 - ... and we should be able to restore said sub ok 28 - ... even if we use a full qualified sub name ok t\pod-coverage....1..1 ok 1 - Pod coverage on Sub::Override ok t\pod.............1..1 ok 1 - blib\lib\Sub\Override.pm ok All tests successful. Files=3, Tests=30, 1 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU)