Fixes and new functions for Module::CoreList

  Fixed functions will edge-case involving querying for Module::CoreList
    itself. Pointed out by Ilmari.

  Added removed_from() and removed_from_by_date() functions
    for querying which release a module was removed from core.

  Amended corelist utility to use new removed from functions when
    stating when a module entered core ( and when it left it ).

  Added tests to the testsuite to cover the edge-cases and new funcs.

1 files changed, 6 insertions, 1 deletions

diff --git a/dist/Module-CoreList/corelist b/dist/Module-CoreList/corelist
index f1210e8454..08f198f4ac 100644
--- a/dist/Module-CoreList/corelist
+++ b/dist/Module-CoreList/corelist
@@ -173,10 +173,15 @@ sub module_version {
     my $msg = $mod;
     $msg .= " $ver" if $ver;
 
+    my $rem = $Opts{d}
+	? Module::CoreList->removed_from_by_date($mod)
+	: Module::CoreList->removed_from($mod);
+
     if( defined $ret ) {
         $msg .= " was ";
         $msg .= "first " unless $ver;
-        $msg .= "released with perl $ret"
+        $msg .= "released with perl " . format_perl_version($ret);
+        $msg .= " and removed from " . format_perl_version($rem) if $rem;
     } else {
         $msg .= " was not in CORE (or so I think)";
     }