File Coverage

blib/lib/Net/Async/NATS/Subscription.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	5	6	83.3
total	26	27	96.3

package Net::Async::NATS::Subscription;
# ABSTRACT: Represents a NATS subscription
our $VERSION = '0.002';
use strict;
use warnings;


sub new {
    my ($class, %args) = @_;
    return bless {
        sid       => $args{sid},
        subject   => $args{subject},
        queue     => $args{queue},
        callback  => $args{callback},
        max_msgs  => $args{max_msgs},
        _received => 0,
    }, $class;
}


sub sid      { $_[0]->{sid} }
sub subject  { $_[0]->{subject} }
sub queue    { $_[0]->{queue} }
sub callback { $_[0]->{callback} }
sub max_msgs { $_[0]->{max_msgs} }

1;

__END__