view release on metacpan or  search on metacpan

lib/AnyEvent/WebArchive.pm  view on Meta::CPAN

package AnyEvent::WebArchive;

use strict;
use AnyEvent::HTTP;
use Data::Dumper;
use base 'Exporter';
our $VERSION = '0.02';

our @EXPORT = qw(restore_url);
my $DEBUG = 0;
sub restore_url {
	my $url = shift;
	my $cb  = pop;
	
	$url =~ s/^www\.//;