File Coverage

lib/App/gh/Command/Drop.pm

Criterion	Covered	Total	%
statement	12	28	42.8
branch	0	4	0.0
condition	0	3	0.0
subroutine	4	5	80.0
pod	0	1	0.0
total	16	41	39.0

package App::gh::Command::Drop;
use warnings;
use strict;
use base qw(App::gh::Command);
use App::gh::Utils;

=head1 NAME

App::gh::Command::Drop - drop a repository.

=head1 USAGE

    $ gh drop [repository]

=cut

sub run {
    my ($self,$repo) = @_;
    return App::gh::Command->invoke('help', 'drop')
        unless defined $repo;

	my $gh_id = App::gh->config->github_id();
	my $gh_token = App::gh->config->github_token();

    $repo =~ s{::}{-}g;

    unless( $gh_id && $gh_token ) {
        die "Github authtoken not found. Can not delete repository.\n";
    }

    print "Deleting @{[ $gh_id ]}/@{[ $repo ]}\n";

    # repos/delete/:user/:repo
    my $uri = sprintf( qq{repos/delete/%s/%s}, $gh_id , $repo );
    my $ret = App::gh->api->request(POST => $uri);
    my $delete_token = $ret->{delete_token};
    $ret = App::gh->api->request(POST => $uri, delete_token => $delete_token);
    print $ret->{status} , "\n";
    return;
}





1;