view release on metacpan or  search on metacpan

scripts/github.pl  view on Meta::CPAN

        $github->set_loadcfg;
    }
    else {
        $github->set_login("$username $password");
    }

    if ($create) {
        eval { $github->repo_create($create); };

        if ($@) {
            say STDERR "Could not create repo $create";
            print STDERR $@;
        }
        else {
            say "Created repo $create";
        }
    }
    elsif ($key) {
        say STDERR "Provide a name for the key with -n" if not $name;

        eval { $github->user_pub_keys( "add", $name, $key ); };

        if ($@) {
            say STDERR "Could not add key";
            print STDERR $@;
        }
        else {
            say "Added pubkey";
        }
    }
    elsif ($fork) {
        eval { $github->run_basic_repo_cmd( 'repos', 'create_fork', $fork ); };

        if ($@) {
            say STDERR "Could not fork $fork";
            print STDERR $@;
        }
        else {
            say "Forked repo $fork";
        }
    }
}

1;

=pod

=head1 NAME