sub _html { shift->{_html} ||= HTML::Tiny->new } 
 
sub get_options_setter { 
  my $self = shift; 
  my $options = shift || return ''; 
 
  croak "The argument to get_options_setter must be a hashref" 
   unless 'HASH' eq ref $options; 
 
  my $h = $self->_html; 
 
  return $h->script( 
    { type => 'text/javascript' }, 
    "\n//<![CDATA[\n" 
     . "var RecaptchaOptions = " 
     . $h->json_encode( $options ) 
     . ";\n//]]>\n" 
  ) . "\n"; 
} 
 
sub get_html 
{ 
   my ($self,$pubkey) = @_; 
my $html = <<EOP 
<script type="text/javascript"> 
var RecaptchaOptions = {theme: 'red'}; 
</script> 
<script type="text/javascript" src="http://www.google.com/recaptcha/api/challenge?k=$pubkey"></script> 
EOP 
; 
}