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;