The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl

use strict;
use WWW::Comic;
use Test::More tests => 1;

BEGIN {
	use_ok( 'WWW::Comic::Plugin::XKCD' );
}


my $wc = new WWW::Comic;

diag("strip is at: " . $wc->strip_url( comic => 'xkcd' ));