Start 2009-10-01T00:16:57 ActivePerl-818 CPAN-1.9402 Going to read '/Users/fly818/var/cpan/Metadata' Database was generated on Wed, 30 Sep 2009 10:27:06 GMT Running make for E/EX/EXODIST/package-watchdog-0.06.tar.gz Fetching with LWP: http://cpan.nas.activestate.com/authors/id/E/EX/EXODIST/package-watchdog-0.06.tar.gz Fetching with LWP: http://cpan.nas.activestate.com/authors/id/E/EX/EXODIST/CHECKSUMS Checksum for /Users/fly818/var/cpan/sources/authors/id/E/EX/EXODIST/package-watchdog-0.06.tar.gz ok Will not use Archive::Tar, need 1.00 package-watchdog-0.06/ package-watchdog-0.06/t/ package-watchdog-0.06/t/060-watch.t package-watchdog-0.06/t/070-forbid.t package-watchdog-0.06/t/030-watched.t package-watchdog-0.06/t/050-tracker.t package-watchdog-0.06/t/040-forbidden.t package-watchdog-0.06/t/010-list.t package-watchdog-0.06/t/020-sub.t package-watchdog-0.06/t/100-watchdog.t package-watchdog-0.06/t/000-util.t package-watchdog-0.06/inc/ package-watchdog-0.06/inc/Module/ package-watchdog-0.06/inc/Module/Install/ package-watchdog-0.06/inc/Module/Install/Can.pm package-watchdog-0.06/inc/Module/Install/Base.pm package-watchdog-0.06/inc/Module/Install/Win32.pm package-watchdog-0.06/inc/Module/Install/WriteAll.pm package-watchdog-0.06/inc/Module/Install/Makefile.pm package-watchdog-0.06/inc/Module/Install/Fetch.pm package-watchdog-0.06/inc/Module/Install/Metadata.pm package-watchdog-0.06/inc/Module/Install.pm package-watchdog-0.06/lib/ package-watchdog-0.06/lib/Package/ package-watchdog-0.06/lib/Package/Watchdog/ package-watchdog-0.06/lib/Package/Watchdog/Sub/ package-watchdog-0.06/lib/Package/Watchdog/Sub/Forbidden.pm package-watchdog-0.06/lib/Package/Watchdog/Sub/Watched.pm package-watchdog-0.06/lib/Package/Watchdog/Util.pm package-watchdog-0.06/lib/Package/Watchdog/Tracker.pm package-watchdog-0.06/lib/Package/Watchdog/Sub.pm package-watchdog-0.06/lib/Package/Watchdog/List.pm package-watchdog-0.06/lib/Package/Watchdog/Tracker/ package-watchdog-0.06/lib/Package/Watchdog/Tracker/Forbid.pm package-watchdog-0.06/lib/Package/Watchdog/Tracker/Watch.pm package-watchdog-0.06/lib/Package/Watchdog.pm package-watchdog-0.06/README package-watchdog-0.06/Makefile.PL package-watchdog-0.06/META.yml package-watchdog-0.06/MANIFEST CPAN.pm: Going to build E/EX/EXODIST/package-watchdog-0.06.tar.gz >>> /Users/fly818/bin/perl Makefile.PL Cannot determine perl version info from lib/Package/Watchdog.pm 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.06.tar.gz make -- OK Running make test >>> make test TEST_VERBOSE=1 PERL_DL_NONLAZY=1 /Users/fly818/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(1, 'inc', 'blib/lib', 'blib/arch')" t/*.t t/000-util.t ....... 1..29 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('combine_subs') ok 10 - Test::Package->can('set_sub') ok 11 - Test::Package->can('itemA') ok 12 - Test::Package->can('itemB') ok 13 - Test::Package->can('itemC') ok 14 - Combine to lists of subs, removing duplicates ok 15 - No subs specified defaults to all ok 16 - Empty list defaults to all ok 17 - Asterisk pulls in all ok 18 - Asterisk pulls in all, keep others ok 19 - Only listed ok 20 - Copied the sub ok 21 - Copied the sub from parent ok 22 - Copied all subs ok 23 - Original Sub works ok 24 - Original Sub works ok 25 - Original replaced ok 26 - Replaced again ok 27 - Restored ok 28 - no sub anymore ok 29 - 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..28 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 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(0x18554f4) ok 25 - Sub replaced ok 26 - Original ( b() ) Returns on CODE(0x18554f4) ok 27 - Sub replaced ok 28 - Original ( c() ) Returns on CODE(0x18554f4) ok 29 - Sub replaced ok 30 - Original ( array() ) Returns on CODE(0x18554f4) ok 31 - Sub replaced ok 32 - Original ( params() ) Returns on CODE(0x18554f4) 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(0x1855710) ok 45 - Sub replaced ok 46 - Dies on CODE(0x1855710) ok 47 - Sub replaced ok 48 - Dies on CODE(0x1855710) ok 49 - Sub replaced ok 50 - Dies on CODE(0x1855710) ok 51 - Sub replaced ok 52 - Dies on CODE(0x1855710) ok 53 - Sub replaced ok 54 - Fatal sub still dies on warn ok 55 - Sub replaced ok 56 - Fatal sub still dies on CODE(0x1855914) 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/fly818/var/cpan/build/package-watchdog-0.06-cH7O2o/blib/lib/Package/Watchdog/Tracker/Watch.pm line 177. 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/fly818/var/cpan/build/package-watchdog-0.06-cH7O2o/blib/lib/Package/Watchdog/Tracker/Watch.pm line 177. 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/fly818/var/cpan/build/package-watchdog-0.06-cH7O2o/blib/lib/Package/Watchdog/Tracker/Watch.pm line 177. Watchdog fatal: sub My::Package::a was called from within My::WatchB::a - My::WatchB[a]-[My::Package,Another::Package]=die at /Users/fly818/var/cpan/build/package-watchdog-0.06-cH7O2o/blib/lib/Package/Watchdog/Tracker/Watch.pm line 177. 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=236, 2 wallclock secs ( 0.22 usr 0.16 sys + 1.15 cusr 0.28 csys = 1.81 CPU) Result: PASS EXODIST/package-watchdog-0.06.tar.gz make test TEST_VERBOSE=1 -- OK Picked up abstract from lib/package/watchdog.pm Chad Granum <exodist7@gmail.com> Forbid subs in one package from accessing subs in another package, directly or otherwise. >>> (cd /Users/fly818/var/cpan/build/package-watchdog-0.06-cH7O2o && tar cvf - package-watchdog-0.06.ppd blib) | gzip -c >/Users/fly818/var/REPO/E/EX/EXODIST/package-watchdog-0.06.tar.gz package-watchdog-0.06.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/fly818/var/cpan/build/package-watchdog-0.06-cH7O2o/package-watchdog-0.06.ppd /Users/fly818/var/REPO/E/EX/EXODIST Finished 2009-10-01T00:17:07