The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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;