Yet Another CPAN Grep

Finance-Quant ( S/SA/SANTEX/Finance-Quant-0.09.tar.gz, SANTEX, 2012; MetaCPAN )

Finance-Quant/lib/Finance/Quant.pm ( view source; MetaCPAN )

    croak "need a working directory";
    }
}


sub get_source_image {
  my($this)= shift;
  my ($json_url) = @_;
  my $EXIT_CODE = 1;
  my $content = "";
  my $browser = WWW::Mechanize->new(

     => 0,
          timeout         => 3,
          autocheck       => 0,
  );
  $browser->get( $json_url );
  if ( $browser->success( ) ) {
    $EXIT_CODE=0;
  } else {
    $EXIT_CODE=1;
  }
  $cont