File Coverage

blib/lib/RxPerl/Subscriber.pm

Criterion	Covered	Total	%
statement	11	13	84.6
branch	3	6	50.0
condition			n/a
subroutine	5	6	83.3
pod	0	4	0.0
total	19	29	65.5

package RxPerl::Subscriber;
use strict;
use warnings;

our $VERSION = "v6.27.0";

sub next {
    my $self = shift;

    $self->{next}->(splice @_, 0, 1) if defined $self->{next};
}

sub error {
    my $self = shift;

    $self->{error}->(splice @_, 0, 1) if defined $self->{error};
}

sub complete {
    my $self = shift;

    $self->{complete}->() if defined $self->{complete};
}

sub subscription { $_[0]->{_subscription} }

1;