Yet Another CPAN Grep

WWW-SolveMedia ( S/SO/SOLVE/WWW-SolveMedia-1.1.tar.gz, SOLVE, 2011; MetaCPAN )

WWW-SolveMedia/SolveMedia.pm ( view source; MetaCPAN )

# $Id: SolveMedia.pm,v 1.1 2010/09/13 18:01:06 ilia Exp $

package WWW::SolveMedia;
use Carp;
use JSON;
use LWP::UserAgent;
use Digest::SHA1 'sha1_hex';
use strict;

our $VERSION 		= '1.1';

my $AC_AP

";

    if( $opts ){
        $html .= "  <script>\n    var ACPuzzleOptions = "
          . encode_json($opts)
          . ";\n  </script>\n";
    }

    my $baseurl = $sslp ? $me->{https} : $me->{http