view release on metacpan or  search on metacpan

bin/ybapi  view on Meta::CPAN

my $api = YellowBot::API->new(
    api_key    => $opt_api_key,
    api_secret => $opt_api_secret,
    api_server => $opt_api_server
);

my %args;
for my $arg (@ARGV) {
    my ($key,$value) = split m/=/, $arg, 2;
    die "invalid key=value pair: $arg" unless defined $value;
    $args{$key} = $value;
}

if ($opt_debug) {
    $ENV{API_DEBUG} = 1;
}
my $response = $api->call($opt_method, %args);
for my $err_type (qw(system_error error)) {
    if ($response->{$err_type}) {