Skip to content

Instantly share code, notes, and snippets.

@kimmel
Created March 17, 2013 07:27
Show Gist options
  • Save kimmel/5180497 to your computer and use it in GitHub Desktop.
Save kimmel/5180497 to your computer and use it in GitHub Desktop.
A sample WWW::CheckSite application
#!/usr/bin/perl
use v5.16;
use warnings;
use autodie qw( :all );
use utf8::all;
use POSIX qw( strftime );
use WWW::CheckSite;
say 'Started at: ' . scalar strftime '%Y-%m-%d %H:%M:%S', localtime;
my $uri = 'http://www.perl.org';
my $prefix = 'perl_org';
my $wcs = WWW::CheckSite->new(
'uri' => $uri,
'prefix' => $prefix,
'save' => 1,
'verbosity' => 1,
'validate' => 'by_none',
);
$wcs->validate;
$wcs->write_report;
say 'Ended at: ' . scalar strftime '%Y-%m-%d %H:%M:%S', localtime;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment