File Coverage

blib/lib/Net/Async/Github/Common.pm

Criterion	Covered	Total	%
statement	6	10	60.0
branch	0	2	0.0
condition			n/a
subroutine	2	4	50.0
pod	2	2	100.0
total	10	18	55.5

package Net::Async::Github::Common;

use strict;
use warnings;

our $VERSION = '0.013'; # VERSION

=head1 NAME

Net::Async::Github::Common - common base class for entities

=head1 METHODS

=head2 new

Instantiates. This will expect the L attribute to be passed.

=cut

sub new {
    my $self = bless { @_[1..$#_] }, $_[0];
    die "no ->github provided" unless $self->github;
    $self
}

=head2 github

Returns the top-level L instance.

=cut

sub github { shift->{github} }

1;