view release on metacpan or  search on metacpan

lib/App/PAUSE/TimeMachine.pm  view on Meta::CPAN

                    'Last-Modified' => $lastmod,
                ],
                [$gztext],
            ];
        }

        if ($env->{PATH_INFO} =~ m!authors/id/!) {
            return [301, ['Location' => "http://backpan.perl.org/$env->{PATH_INFO}"], []];
        }

        return [404, ['Content-Type' => 'text/plain'], ["Not Found"]];
    };
}

sub git_dir {
    $_[0]->{git_dir};
}

sub run {
    my($self, @args) = @_;