File Coverage

blib/lib/GitHub/API/Repo/Keys.pm

Criterion	Covered	Total	%
statement	9	18	50.0
branch			n/a
condition	0	3	0.0
subroutine	3	6	50.0
pod	3	3	100.0
total	15	30	50.0

#
# This file is part of GitHub-API
#
# This software is Copyright (c) 2013 by Chris Weyl.
#
# This is free software, licensed under:
#
#   The GNU Lesser General Public License, Version 2.1, February 1999
#
package GitHub::API::Repo::Keys;
{
  $GitHub::API::Repo::Keys::VERSION = '0.000000_03';
}

# ABSTRACT: A list of a repository's hooks

use common::sense;
use autobox::Core;

use parent 'GitHub::API::Base';

#use aliased 'GitHub::API::Hook';

# debugging...
#use Smart::Comments '###';


sub all {
    my $self = shift @_;

    return $self->{_keys} //= $self->_get;
}


sub create {
    my ($self, %key) = @_;

    delete $self->{_keys};
    my $key = $self->_post(\%key);

    return $key;
}


sub rm {
    my ($self, $id) = @_;

    delete $self->{_keys};
    return $self->_delete(undef, "/$id");
}


!!42;

__END__