Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
} else {
        print $client->status_line;
}
  2. or download this
    $VAR1 = 'HASH';
Not a HASH reference at /usr/local/share/perl/5.10.0/JSON/RPC/Client.p
+m line 194.
  3. or download this
    sub new {
    my ($class, $obj, $json) = @_;
...

    $self;
}