package Heap::Simple::Package; # START HISTORY # autogenerated by release_pm use vars qw($VERSION %history); $VERSION = "0.13"; %history = ( 'Changes' => { '0.01' => '0.01', '0.02' => '0.02', '0.03' => '0.03', '0.04' => '0.04', '0.05' => '0.05', '0.06' => '0.06', '0.08' => '0.08', '0.09' => '0.09', '0.10' => '0.10', '0.11' => '0.11', '0.12' => '0.12', '0.13' => '0.13' }, 'MANIFEST' => { '0.01' => '0.01', '0.02' => '0.02', '0.03' => '0.03', '0.04' => '0.06', '0.05' => '0.08', '0.06' => '0.12' }, 'MANIFEST.SKIP' => { '0.01' => '0.12', '0.02' => '0.13' }, 'Makefile.PL' => { '0.01' => '0.01', '0.02' => '0.06', '0.03' => '0.08', '0.04' => '0.09', '0.05' => '0.10', '0.06' => '0.11', '0.11' => '0.12', '0.12' => '0.13' }, 'README' => { '0.01' => '0.01', '0.02' => '0.02', '0.03' => '0.03', '0.04' => '0.04', '0.05' => '0.05', '0.06' => '0.06', '0.08' => '0.08', '0.09' => '0.09', '0.10' => '0.10', '0.11' => '0.13' }, 'Simple.pm' => { '0.01' => '0.01', '0.02' => '0.02', '0.03' => '0.03', '0.04' => '0.04', '0.05' => '0.05', '0.08' => '0.08', '0.09' => '0.09', '0.10' => '0.10', '0.11' => '0.11' }, 'lib/Heap/Package.pm' => { '0.12' => '0.12' }, 'lib/Heap/Simple.pm' => { '0.06' => '0.06', '0.12' => '0.12', '0.13' => '0.13' }, 'lib/Heap/Simple/Any.pm' => { '0.01' => '0.03' }, 'lib/Heap/Simple/Array.pm' => { '0.01' => '0.01', '0.02' => '0.03' }, 'lib/Heap/Simple/Function.pm' => { '0.01' => '0.02', '0.02' => '0.03', '0.03' => '0.05' }, 'lib/Heap/Simple/Hash.pm' => { '0.01' => '0.01', '0.02' => '0.02', '0.03' => '0.03', '0.04' => '0.05' }, 'lib/Heap/Simple/Key.pm' => { '0.01' => '0.01', '0.02' => '0.03' }, 'lib/Heap/Simple/Less.pm' => { '0.01' => '0.03' }, 'lib/Heap/Simple/Method.pm' => { '0.01' => '0.02', '0.02' => '0.03', '0.03' => '0.05' }, 'lib/Heap/Simple/Number.pm' => { '0.01' => '0.01', '0.02' => '0.03' }, 'lib/Heap/Simple/NumberReverse.pm' => { '0.01' => '0.01', '0.02' => '0.03' }, 'lib/Heap/Simple/Object.pm' => { '0.01' => '0.03' }, 'lib/Heap/Simple/Package.pm' => { '0.12' => '0.12', '0.13' => '0.13' }, 'lib/Heap/Simple/String.pm' => { '0.01' => '0.01' }, 'lib/Heap/Simple/StringReverse.pm' => { '0.01' => '0.01', '0.02' => '0.03' }, 'lib/Heap/Simple/Wrapper.pm' => { '0.01' => '0.03', '0.02' => '0.05' }, 't/1.t' => { '0.01' => '0.01', '0.02' => '0.02', '0.03' => '0.03', '0.04' => '0.04', '0.05' => '0.05', '0.06' => '0.06' }, 't/2.t' => { '0.01' => '0.01' }, 't/Heap-Simple.t' => { '0.01' => '0.08', '0.02' => '0.09', '0.11' => '0.12' }, 't/n.t' => { '0.01' => '0.01' }, 't/s.t' => { '0.01' => '0.01', '0.02' => '0.02', '0.03' => '0.03', '0.04' => '0.05', '0.05' => '0.06' } ); use Carp; sub released { my ($package, $version) = @_; my $p = $package; $p =~ s!::!/!g; my $history = $history{"lib/$p.pm"} || croak "Could not find a history for package '$package'"; my $lowest = 9**9**9; for my $v (keys %$history) { $lowest = $v if $v >= $version && $v < $lowest; } croak "No known version '$version' of package '$package'" if $lowest == 9**9**9; return $history->{$lowest}; } # END HISTORY 1;