Start 2009-10-03T06:11:52 ActivePerl-1003 CPAN-1.9402 Going to read '/Users/fly1003/var/cpan/Metadata' Database was generated on Sat, 03 Oct 2009 08:27:42 GMT Running make for E/EX/EXODIST/Package-Watchdog-0.08.tar.gz Fetching with LWP: http://cpan.nas.activestate.com/authors/id/E/EX/EXODIST/Package-Watchdog-0.08.tar.gz Fetching with LWP: http://cpan.nas.activestate.com/authors/id/E/EX/EXODIST/CHECKSUMS Checksum for /Users/fly1003/var/cpan/sources/authors/id/E/EX/EXODIST/Package-Watchdog-0.08.tar.gz ok Will not use Archive::Tar, need 1.00 Package-Watchdog-0.08/ Package-Watchdog-0.08/t/ Package-Watchdog-0.08/t/060-watch.t Package-Watchdog-0.08/t/070-forbid.t Package-Watchdog-0.08/t/030-watched.t Package-Watchdog-0.08/t/050-tracker.t Package-Watchdog-0.08/t/040-forbidden.t Package-Watchdog-0.08/t/010-list.t Package-Watchdog-0.08/t/020-sub.t Package-Watchdog-0.08/t/100-watchdog.t Package-Watchdog-0.08/t/000-util.t Package-Watchdog-0.08/inc/ Package-Watchdog-0.08/inc/Module/ Package-Watchdog-0.08/inc/Module/Install/ Package-Watchdog-0.08/inc/Module/Install/Can.pm Package-Watchdog-0.08/inc/Module/Install/Base.pm Package-Watchdog-0.08/inc/Module/Install/Win32.pm Package-Watchdog-0.08/inc/Module/Install/WriteAll.pm Package-Watchdog-0.08/inc/Module/Install/Makefile.pm Package-Watchdog-0.08/inc/Module/Install/Fetch.pm Package-Watchdog-0.08/inc/Module/Install/Metadata.pm Package-Watchdog-0.08/inc/Module/Install.pm Package-Watchdog-0.08/lib/ Package-Watchdog-0.08/lib/Package/ Package-Watchdog-0.08/lib/Package/Watchdog/ Package-Watchdog-0.08/lib/Package/Watchdog/Sub/ Package-Watchdog-0.08/lib/Package/Watchdog/Sub/Forbidden.pm Package-Watchdog-0.08/lib/Package/Watchdog/Sub/Watched.pm Package-Watchdog-0.08/lib/Package/Watchdog/Util.pm Package-Watchdog-0.08/lib/Package/Watchdog/Tracker.pm Package-Watchdog-0.08/lib/Package/Watchdog/Sub.pm Package-Watchdog-0.08/lib/Package/Watchdog/List.pm Package-Watchdog-0.08/lib/Package/Watchdog/Tracker/ Package-Watchdog-0.08/lib/Package/Watchdog/Tracker/Forbid.pm Package-Watchdog-0.08/lib/Package/Watchdog/Tracker/Watch.pm Package-Watchdog-0.08/lib/Package/Watchdog.pm Package-Watchdog-0.08/README Package-Watchdog-0.08/Makefile.PL Package-Watchdog-0.08/META.yml Package-Watchdog-0.08/MANIFEST CPAN.pm: Going to build E/EX/EXODIST/Package-Watchdog-0.08.tar.gz >>> /Users/fly1003/bin/perl Makefile.PL Checking if your kit is complete... Looks good Writing Makefile for Package::Watchdog >>> make cp lib/Package/Watchdog/List.pm blib/lib/Package/Watchdog/List.pm cp lib/Package/Watchdog/Util.pm blib/lib/Package/Watchdog/Util.pm cp lib/Package/Watchdog/Tracker/Watch.pm blib/lib/Package/Watchdog/Tracker/Watch.pm cp lib/Package/Watchdog/Sub/Forbidden.pm blib/lib/Package/Watchdog/Sub/Forbidden.pm cp lib/Package/Watchdog/Sub.pm blib/lib/Package/Watchdog/Sub.pm cp lib/Package/Watchdog/Sub/Watched.pm blib/lib/Package/Watchdog/Sub/Watched.pm cp lib/Package/Watchdog.pm blib/lib/Package/Watchdog.pm cp lib/Package/Watchdog/Tracker.pm blib/lib/Package/Watchdog/Tracker.pm cp lib/Package/Watchdog/Tracker/Forbid.pm blib/lib/Package/Watchdog/Tracker/Forbid.pm Manifying blib/man3/Package::Watchdog::List.3 Manifying blib/man3/Package::Watchdog::Util.3 Manifying blib/man3/Package::Watchdog::Tracker::Watch.3 Manifying blib/man3/Package::Watchdog::Sub::Forbidden.3 Manifying blib/man3/Package::Watchdog::Sub.3 Manifying blib/man3/Package::Watchdog::Sub::Watched.3 Manifying blib/man3/Package::Watchdog.3 Manifying blib/man3/Package::Watchdog::Tracker.3 Manifying blib/man3/Package::Watchdog::Tracker::Forbid.3 EXODIST/Package-Watchdog-0.08.tar.gz make -- OK Running make test >>> make test TEST_VERBOSE=1 PERL_DL_NONLAZY=1 /Users/fly1003/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(1, 'inc', 'blib/lib', 'blib/arch')" t/*.t t/000-util.t ....... 1..30 ok 1 - use Package::Watchdog::Util; ok 2 - get_all_subs returns all subs ok 3 - Got correct list of subs ok 4 - Test::Package->can('copy_sub') ok 5 - Test::Package->can('expand_subs') ok 6 - Test::Package->can('copy_subs') ok 7 - Test::Package->can('build_accessors') ok 8 - Test::Package->can('get_all_subs') ok 9 - Test::Package->can('proper_return') ok 10 - Test::Package->can('combine_subs') ok 11 - Test::Package->can('set_sub') ok 12 - Test::Package->can('itemA') ok 13 - Test::Package->can('itemB') ok 14 - Test::Package->can('itemC') ok 15 - Combine to lists of subs, removing duplicates ok 16 - No subs specified defaults to all ok 17 - Empty list defaults to all ok 18 - Asterisk pulls in all ok 19 - Asterisk pulls in all, keep others ok 20 - Only listed ok 21 - Copied the sub ok 22 - Copied the sub from parent ok 23 - Copied all subs ok 24 - Original Sub works ok 25 - Original Sub works ok 26 - Original replaced ok 27 - Replaced again ok 28 - Restored ok 29 - no sub anymore ok 30 - no sub anymore ok t/010-list.t ....... 1..19 ok 1 - use Package::Watchdog::List; ok 2 - The object isa Package::Watchdog::List ok 3 - No packages yet ok 4 - No subs for package ok 5 - Push returns object ok 6 - package pushed ok 7 - Got correct subs for package ok 8 - Push returns object ok 9 - Got correct subs for package ok 10 - The object isa Package::Watchdog::List ok 11 - Got correct subs for package ok 12 - clear returns object ok 13 - No packages ok 14 - No subs for package ok 15 - Package list joined ok 16 - Correct list for a ok 17 - Correct list for b ok 18 - Correct list for c ok 19 - Correct list for d ok t/020-sub.t ........ 1..30 ok 1 - use Package::Watchdog::Sub; ok 2 - Package::Watchdog::Sub->can(...) ok 3 - Must override new_sub ok 4 - Original ok 5 - init got extra params ok 6 - The object isa Package::Watchdog::Sub ok 7 - init got extra params ok 8 - Only one instance per class/package/sub ok 9 - Overriden ok 10 - Restored ok 11 - init got extra params ok 12 - Old instance destroyed ok 13 - Overriden again ok 14 - init got extra params ok 15 - Restored ok 16 - Cannot do_override on expired object ok 17 - init got extra params ok 18 - Cannot do_override on expired object ok 19 - init got extra params ok 20 - Restored ok 21 - replaced ok 22 - Still replaced ok 23 - Only one instance of a sub override ok 24 - Correct Tracks ok 25 - Correct Tracks ok 26 - Still replaced ok 27 - Correct Tracks ok 28 - Restored ok 29 - Wanted an array ok 30 - Wanted a scalar ok t/030-watched.t .... 1..21 ok 1 - Overrode forbid ok 2 - use Package::Watchdog::Sub::Watched; ok 3 - Package::Watchdog::Sub::Watched->can('trackers') ok 4 - Replaced ok 5 - new_sub returns original sub return value ok 6 - new_sub returns original sub return value ok 7 - Still replaced ok 8 - Only one instance of a sub override ok 9 - Correct Watches ok 10 - Correct Watches ok 11 - Still replaced ok 12 - Correct Watches ok 13 - Restored ok 14 - Replaced ok 15 - overriden function that dies still dies ok 16 - Correct death message ok 17 - Replaced ok 18 - new_sub returns original sub return value ok 19 - Correct Params ok 20 - Got correct params hash in forbid class. ok 21 - unforbid was run ok t/040-forbidden.t .. 1..56 ok 1 - use Package::Watchdog::Sub::Forbidden; ok 2 - Package::Watchdog::Sub::Forbidden->can('trackers') ok 3 - Only one instance ok 4 - Sub replaced ok 5 - Die when there is a react with die ok 6 - correct death message ok 7 - Correct stuff was run. ok 8 - Live without a die reaction ok 9 - Correct stuff was run. ok 10 - Live without a die reaction ok 11 - Correct stuff was run. ok 12 - Sub restored ok 13 - Sub replaced ok 14 - Original ( a() ) Returns on warn ok 15 - Sub replaced ok 16 - Original ( b() ) Returns on warn ok 17 - Sub replaced ok 18 - Original ( c() ) Returns on warn ok 19 - Sub replaced ok 20 - Original ( array() ) Returns on warn ok 21 - Sub replaced ok 22 - Original ( params() ) Returns on warn ok 23 - Sub replaced ok 24 - Original ( a() ) Returns on CODE(0x1848d80) ok 25 - Sub replaced ok 26 - Original ( b() ) Returns on CODE(0x1848d80) ok 27 - Sub replaced ok 28 - Original ( c() ) Returns on CODE(0x1848d80) ok 29 - Sub replaced ok 30 - Original ( array() ) Returns on CODE(0x1848d80) ok 31 - Sub replaced ok 32 - Original ( params() ) Returns on CODE(0x1848d80) ok 33 - Sub replaced ok 34 - Dies on die ok 35 - Sub replaced ok 36 - Dies on die ok 37 - Sub replaced ok 38 - Dies on die ok 39 - Sub replaced ok 40 - Dies on die ok 41 - Sub replaced ok 42 - Dies on die ok 43 - Sub replaced ok 44 - Dies on CODE(0x185aa70) ok 45 - Sub replaced ok 46 - Dies on CODE(0x185aa70) ok 47 - Sub replaced ok 48 - Dies on CODE(0x185aa70) ok 49 - Sub replaced ok 50 - Dies on CODE(0x185aa70) ok 51 - Sub replaced ok 52 - Dies on CODE(0x185aa70) ok 53 - Sub replaced ok 54 - Fatal sub still dies on warn ok 55 - Sub replaced ok 56 - Fatal sub still dies on CODE(0x185ad20) ok t/050-tracker.t .... 1..14 ok 1 - use Package::Watchdog::Tracker; ok 2 - track needs to be overriden ok 3 - track needs to be overriden ok 4 - Package::Watchdog::Tracker->can('tracked') ok 5 - The object isa Package::Watchdog::Tracker ok 6 - Test class constructed properly ok 7 - Trackable's for both 'a' and 'b' ok 8 - The object isa My::Trackable ok 9 - The object isa My::Trackable ok 10 - Trackables have the tracker ok 11 - Trackables have the tracker ok 12 - Trackables no longer have the tracker ok 13 - Trackables no longer have the tracker ok 14 - Not tracking anything ok t/060-watch.t ...... 1..25 ok 1 - use Package::Watchdog::Tracker::Watch; ok 2 - Package::Watchdog::Tracker::Watch->can(...) ok 3 - Must specify a package to watch ok 4 - Correct message ok 5 - Must provide a Package\::Watchdog\::List for param 'forbid' ok 6 - Correct message ok 7 - Param 'react' must be either 'die', 'warn', or a coderef. ok 8 - Correct message ok 9 - Default react is die ok 10 - all subs for Fake package ok 11 - Saved package ok 12 - The object isa Package::Watchdog::List ok 13 - Tracking 2 subs ok 14 - The object isa Package::Watchdog::Sub::Watched ok 15 - The object isa Package::Watchdog::Sub::Watched ok 16 - Object is a tracker ok 17 - Object is a tracker ok 18 - Tracking 0 subs ok 19 - Object is not a tracker ok 20 - Object is not a tracker ok 21 - Somewhat useful name generated ok 22 - Generated useful warning ok 23 - Generated useful warning - leveled ok 24 - warns properly ok 25 - Proper params are passed to react sub ok t/070-forbid.t ..... 1..16 ok 1 - use Package::Watchdog::Tracker::Forbid; ok 2 - Package::Watchdog::Tracker::Forbid->can(...) ok 3 - Watched was saved ok 4 - Params was saved ok 5 - 2 watchers ok 6 - Tracking 3 forbidden subs ok 7 - The object isa Package::Watchdog::Sub::Forbidden ok 8 - The object isa Package::Watchdog::Sub::Forbidden ok 9 - The object isa Package::Watchdog::Sub::Forbidden ok 10 - Object is a tracker ok 11 - Object is a tracker ok 12 - Object is a tracker ok 13 - Tracked list cleared ok 14 - Object is no longer a tracker ok 15 - Object is no longer a tracker ok 16 - Object is no longer a tracker ok Watchdog fatal: sub My::Package::a was called from within My::WatchA::a - My::WatchA[c,a,b,d]-[My::Package,Another::Package]=die at /Users/fly1003/var/cpan/build/Package-Watchdog-0.08-935NgP/blib/lib/Package/Watchdog/Tracker/Watch.pm line 178. Watchdog fatal: sub My::Package::a was called from within My::WatchA::b - My::WatchA[c,a,b,d]-[My::Package,Another::Package]=die at /Users/fly1003/var/cpan/build/Package-Watchdog-0.08-935NgP/blib/lib/Package/Watchdog/Tracker/Watch.pm line 178. Watchdog fatal: sub My::Package::a was called from within My::WatchA::c - My::WatchA[c,a,b,d]-[My::Package,Another::Package]=die at /Users/fly1003/var/cpan/build/Package-Watchdog-0.08-935NgP/blib/lib/Package/Watchdog/Tracker/Watch.pm line 178. Watchdog fatal: sub My::Package::a was called from within My::WatchB::a - My::WatchB[a]-[My::Package,Another::Package]=die at /Users/fly1003/var/cpan/build/Package-Watchdog-0.08-935NgP/blib/lib/Package/Watchdog/Tracker/Watch.pm line 178. t/100-watchdog.t ... 1..28 ok 1 - use Package::Watchdog; ok 2 - No Watches by default ok 3 - Empty list of forbids ok 4 - default react is die ok 5 - Custom reaction ok 6 - Correct forbids structure ok 7 - Correct Packages ok 8 - All subs for 'My::Package' ok 9 - Correct subs for 'Another::Package' ok 10 - Watched sub a ok 11 - Watched sub b ok 12 - Watched sub c ok 13 - Watched sub a ok 14 - not watching sub b ok 15 - not watching sub c ok 16 - destroyed watchdog: sub a ok 17 - destroyed watchdog: sub b ok 18 - destroyed watchdog: sub c ok 19 - destroyed watchdog: sub a ok 20 - Watched sub a ok 21 - Watched sub b ok 22 - Watched sub c ok 23 - Watched sub a ok 24 - Watched sub d - newly created forbid ok 25 - no warnings for sub a ok 26 - no warnings for sub b ok 27 - no warnings for sub c ok 28 - no warnings for sub a ok All tests successful. Files=9, Tests=239, 1 wallclock secs ( 0.20 usr 0.16 sys + 1.18 cusr 0.28 csys = 1.82 CPU) Result: PASS EXODIST/Package-Watchdog-0.08.tar.gz make test TEST_VERBOSE=1 -- OK Chad Granum <exodist7@gmail.com> Forbid subs in one package from accessing subs in another package, directly or otherwise. >>> (cd /Users/fly1003/var/cpan/build/Package-Watchdog-0.08-935NgP && tar cvf - Package-Watchdog-0.08.ppd blib) | gzip -c >/Users/fly1003/var/REPO/E/EX/EXODIST/Package-Watchdog-0.08.tar.gz Package-Watchdog-0.08.ppd blib/ blib/lib/ blib/lib/Package/ blib/lib/Package/Watchdog/ blib/lib/Package/Watchdog/List.pm blib/lib/Package/Watchdog/Sub/ blib/lib/Package/Watchdog/Sub/Forbidden.pm blib/lib/Package/Watchdog/Sub/Watched.pm blib/lib/Package/Watchdog/Sub.pm blib/lib/Package/Watchdog/Tracker/ blib/lib/Package/Watchdog/Tracker/Forbid.pm blib/lib/Package/Watchdog/Tracker/Watch.pm blib/lib/Package/Watchdog/Tracker.pm blib/lib/Package/Watchdog/Util.pm blib/lib/Package/Watchdog.pm blib/man3/ blib/man3/Package::Watchdog.3 blib/man3/Package::Watchdog::List.3 blib/man3/Package::Watchdog::Sub.3 blib/man3/Package::Watchdog::Sub::Forbidden.3 blib/man3/Package::Watchdog::Sub::Watched.3 blib/man3/Package::Watchdog::Tracker.3 blib/man3/Package::Watchdog::Tracker::Forbid.3 blib/man3/Package::Watchdog::Tracker::Watch.3 blib/man3/Package::Watchdog::Util.3 >>> mv /Users/fly1003/var/cpan/build/Package-Watchdog-0.08-935NgP/Package-Watchdog-0.08.ppd /Users/fly1003/var/REPO/E/EX/EXODIST Finished 2009-10-03T06:12:01