use warnings;
use vars qw[$VERSION %utilities];
use Module::CoreList;
-use Module::CoreList::TieHashDelta;
-$VERSION = '5.20151120';
+$VERSION = '5.20160720';
sub utilities {
my $perl = shift;
removed => {
}
},
+ 5.022001 => {
+ delta_from => 5.022,
+ changed => {
+ },
+ removed => {
+ }
+ },
+ 5.023006 => {
+ delta_from => 5.023005,
+ changed => {
+ },
+ removed => {
+ }
+ },
+ 5.023007 => {
+ delta_from => 5.023006,
+ changed => {
+ },
+ removed => {
+ }
+ },
+ 5.023008 => {
+ delta_from => 5.023007,
+ changed => {
+ },
+ removed => {
+ }
+ },
+ 5.023009 => {
+ delta_from => 5.023008,
+ changed => {
+ },
+ removed => {
+ }
+ },
+ 5.022002 => {
+ delta_from => 5.022001,
+ changed => {
+ },
+ removed => {
+ }
+ },
+ 5.024000 => {
+ delta_from => 5.023009,
+ changed => {
+ },
+ removed => {
+ }
+ },
+ 5.025000 => {
+ delta_from => 5.024000,
+ changed => {
+ },
+ removed => {
+ }
+ },
+ 5.025001 => {
+ delta_from => 5.025000,
+ changed => {
+ },
+ removed => {
+ }
+ },
+ 5.025002 => {
+ delta_from => 5.025001,
+ changed => {
+ },
+ removed => {
+ }
+ },
+ 5.025003 => {
+ delta_from => 5.025002,
+ changed => {
+ },
+ removed => {
+ }
+ },
);
-for my $version (sort { $a <=> $b } keys %delta) {
- my $data = $delta{$version};
-
- tie %{$utilities{$version}}, 'Module::CoreList::TieHashDelta',
- $data->{changed}, $data->{removed},
- $data->{delta_from} ? $utilities{$data->{delta_from}} : undef;
-}
+%utilities = Module::CoreList::_undelta(\%delta);
# Create aliases with trailing zeros for $] use
print $Module::CoreList::Utils::utilities{5.009003}{ptar}; # prints 1
- print Module::CoreList::Utils->first_release('corelist'); # prints 5.008009
- print Module::CoreList::Utils->first_release_by_date('corelist'); # prints 5.009002
+ print Module::CoreList::Utils->first_release('corelist');
+ # prints 5.008009
+
+ print Module::CoreList::Utils->first_release_by_date('corelist');
+ # prints 5.009002
=head1 DESCRIPTION