view release on metacpan or  search on metacpan

t/11verify.t  view on Meta::CPAN

for my $url (@urls) {
  my $url = URI->new($url);
  my %form = $url->query_form;
  ok(my $data = $bc->verify(\%form), 'verify');
}



sub __bitcard_key {
 my $data ='p=11996369463481565292523121140449531889825095982121983761936827865954801073413849839236052880545722284106237673100457431775834799856485806364388478204231543
g=11079984797594333311123894730450538747563758095776837999552541421517868087145325620603225047995061886285778482662140484776140447470922327545853855737935682
q=1325099124387589349068596816147033244974696025417
pub_key=8544831415282596138360036915566670162338109712662730782097481290631305162711704659417023332347142944863751759764390118340330011853246719351387417817211195';

use Math::BigInt;
chomp $data;
my $key = {};
for my $f (split /\s+/, $data) {
    my($k, $v) = split /=/, $f, 2;
    $key->{$k} = Math::BigInt->new($v);
}